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1. Introduzione al VBA 


Excel è un programma della suite Microsoft Office dedicato alla produzione e gestione dei fogli di 
calcolo. Attualmente, è il foglio elettronico più usato, ed è una risorsa sempre più richiesta in ambito 
aziendale perché fornisce strumenti e funzionalità essenziali per la gestione di ogni attività. In 
particolare, Excel consente di elaborare ed analizzare dati estraendone risultati omogenei mettendo in 
evidenza aspetti strategici basandosi su numeri e dati reali. 


Gli scenari di utilizzo più comuni includono chi si occupa di segreteria, di amministrazione contabile, chi 
pianifica e redige report periodici e chiunque abbia il bisogno di elaborare e sintetizzare velocemente 
grandi mole di dati. Per migliorare ulteriormente le sue funzioni Microsoft ha introdotto nel pacchetto 
Office, e su Excel in particolare, la possibilità di sfruttare la potenza di un vero e proprio linguaggio di 
programmazione denominato Visual Basic for Applications, noto semplicemente come VBA che è una 
evoluzione del linguaggio Basic, in dotazione ai personal computer nei primi anni 80, che consente di 
scrivere codice in grado di eseguire automaticamente azioni su un documento e/o sul suo contenuto 


Lo scopo della programmazione in VBA è di usare i dati presenti nel foglio di calcolo come input per 
facilitare le operazioni necessarie per ottenere un risultato, sia esso di calcolo che di ricerca, 
diventando così potenti strumenti di lavoro e la sua integrazione all’interno del pacchetto Office ha 
reso questo linguaggio interessante per lo sviluppo di vere e proprie applicazioni interamente 
automatizzate che sfruttano ed amplificano il "motore" di Office, permettendo di controllare ogni 
aspetto dell’applicazione espandendone le funzionalità. 


Basta infatti un semplice Click su un pulsante, perché il computer elabori una serie di dati utilizzando 
un sotto programma sviluppato tramite VBA che, acquisendo i dati presenti nel foglio di calcolo, 
restituirà il risultato derivante dai calcoli che sono stati fatti eseguire. Sulla disponibilità e l’uso di VBA si 
devono fare alcune puntualizzazioni: 


v VBA, come tutti i linguaggi di programmazione, ha una propria sintassi e non tollera errori, uno 
spazio omesso o fuori luogo, un punto invece di una virgola e verrà rimandato un errore. 


v Il codice che viene prodotto è immagazzinato nel file dell’applicazione che è stata utilizzata per 
lo sviluppo e non in un file separato, questo spiega anche il fatto che mon è possibile effettuare 
un programma eseguibile indipendente con VBA, in quanto il codice sviluppato sarà eseguito 
attraverso il programma host utilizzato (Excel, Word etc.) per la sua scrittura. 


Da un codice in Excel è possibile gestire altri documenti della Suite Office, come Word o 
presentazioni PowerPoint 


Si deve tener presente che VBA è organizzato in un modello gerarchico di elementi (tipo le 

matriosche) ed è un contenitore per oggetti che possiamo manipolare tramite le loro proprietà (il 
colore), i metodi (aggiunta di un elemento) ed eventi (risposta a un clic del mouse). Pertanto possiamo 
considerare Il Visual Basic for Application lo strumento ideale per la creazione di veri e propri applicativi 
di Office Automation. 


1.1 Fondamenti di Microsoft Excel 


L'ambiente di programmazione Visual Basic, dipende da Excel, di conseguenza, per utilizzarlo è 
necessario prima aprire Excel cliccando su Start - Programmi - Microsoft Office - Microsoft Excel, oppure 
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se si dispone di un documento di Excel da esplora risorse di Windows è possibile, facendo doppio clic 
su di esso, avviare Excel e aprire il documento stesso. 


Nel corso degli anni, Microsoft ha apportando innumerevoli modifiche rivolte a migliorare la facilità di 
utilizzo, la funzionalità e l'aspetto di Office, ma la vera innovazione arriva con Excel 2007 che ha 
segnato veramente un cambio di paradigma. Elencarne tutte le novità non è lo scopo di questo 
articolo, per cui ci limiteremo alla citazione dei più eclatanti, come la comparsa della “Barra 
Multifunzione” che sostituisce sia la barra dei menu che le barre degli strumenti, la presenza di 1 
milione di righe e 16.000 colonne in un foglio di lavoro e tanto altro ancora. 

Sicuramente uno dei cambiamenti più significativi apportato con Office 2007 è l’uso di un nuovo 
formato di file, e le impostazioni di protezione delle macro, modificate per cercare di evitare che 
software nocivo si insinui nel computer. 


Và ricordato che Excel eseguirà le macro solo se sono contenute in 
una cartella di tipo appropriato, in quanto i file che contengono 
codice VBA, dalla versione successiva a Office 2007, vengono 
distinti dagli altri con un'estensione e un’icona diversa, nella figura 
a sinistra è rappresentata l'icona di un file che NOWcontiene codice 
VBA e ha estensione .x/sx, mentre l'icona di un file che contiene 
codice VBA ha estensione .x/sm 


x 
DOT 
puuit 


i | 
na SI 
mu cu 
ti 
I I 
pi] 
P_i 


» 
n 
x 
x 
d 
3 


| file salvati usando il formato .x/sx non possono contenere macro, per cui anche il formato di 
salvataggio è diverso, quando viene salvato un file che contiene codice VBA occorre indicare a Excel 
che deve salvarlo usando il formato Cartella di lavoro con attivazione macro di Excel 


fi na 
[3] Salva con nome ro 
(CISL EI) » Microsoft Excel -|6 P 
Organizza © ar 17] 


pc Microsoft Excel 


SE Preferiti 
RI Desktop 
8 Download 
a OneDrive 


2 Risorse recenti 


Nome fde Cartellxism ” 
Salva come | Cartella di lavoro con attivazione macro di Excel (*.xism) ” 


Utente Windows Tag: Aggiungi tag 


Sadva anteprima 


2. Nascondi cartelle Strumenti + Annulla 


Qualora si tenti di salvare il file nel formato tradizionale, Excel avviserebbe che non è possibile salvare 
le caratteristiche del vostro file nel formato scelto 


Microsoft Excel X 


Impossibile salvare le caratteristiche seguenti in cartelle di lavoro senza macro: 


O * Progetto VB 
Per salvare un file con queste caratteristiche, fare clic su No, quindi selezionare un tipo di file con attivazione macro nell'elenco Tipo file. 


Per continuare a salvare come cartella di lavoro senza macro, fare clic su Sì. 
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Nella finestra di avviso sopra riportata si deve scegliere No, in questo modo Excel mostrerà la 

finestra Salva con nome, nella quale è possibile scegliere il formato corretto per conservare il progetto 
VBA. Se, invece, viene scelta l'opzione Sì e si procede con il salvataggio comunque in formato .xlsx, e il 
progetto VBA inserito nel file non sarà in alcun modo eseguibile né utilizzabile. 


Nelle versioni di Office XP e Office 2003 non vengono distinti i file con codice VBA da quelli 
Mi) che ne sono privi e tutti i file Excel hanno la stessa estensione (.xIs) e la stessa icona. 
Oltre a differenziare il formato, Excel permette di stabilire come gestire i singoli file che contengono 
codice. Volendo, è possibile fare in modo che Excel blocchi l'esecuzione di tutto il codice, ma, avendo 
bisogno del VBA, si tratta di una impostazione troppo drastica. D'altro canto, lasciare che Excel esegua 
qualsiasi codice, anche quello non scritto da voi, può essere pericoloso. La soluzione giusta consiste nel 
fare in modo che, all'apertura di tutti i file che contengono codice, Excel chieda se eseguirlo o no 


Per determinare queste impostazioni occorre che, sulla barra multifunzione, sia visibile la 
scheda Sviluppo, se non lo fosse, si deve seguire il percorso File - Opzioni e una volta visualizzata la 


sel, Personalizzazione della barra multifunzione 


H 
Scegli comandi da: Personalizza barra multifunzione: 
Comandi più usati =] Schede principali 


è Aggiorna tutti Schede principali 
Allinea al centro =) (9) Home 
> Annulla ® Appunti 
(i Anteprima di stampa e stampa * Carattere 
Apn * Allineamento 
‘Aumenta dimensione caratte... * Numeri 
] Blocca niquadri D Stili 
Bordi E ®) Celle 
Colore carattere d Modifica 
Colore riempimento v. Inserisci 


Connessioni v| Layout di pagina 
Controllo ortografia... 


vi Formule 

Copia 
Copia formato 4) Dati 
Dimensione carattere 4) Revisione 
Elimina celle... vi Visualizza 
Elimina colonne foglio OI E2 Sviluppe 
Elimina righe foglio 
Filtro 
Formato celle... 

# Formattazione condizionale 

Lo' Forme 


Gestione nomi 
3 Immagini... Nuova scheda Nuovo gruppo 


Imposta area di stampa Personalizzazioni | Reimposta v 
Imposta pagina 


è Incolla importa/Esporta 


{®) ] Componenti aggiuntivi 
% (VI Rimuovi sfondo 


Li 
Annulla 


finestra delle opzioni selezionare la voce Personalizzazione barra multifunzione e nel riquadro di 
destra, selezionare la scheda Sviluppo e poi premete Ok. 


In Excel 2007, per visualizzare la scheda Sviluppo, si deve aprire il menu File e selezionare la 


(#) voce Opzioni, comparirà la finestra Opzioni di Excel e nella sezione Impostazioni generali 
"" occorre mettere un segno di spunta alla voce Mostra scheda Sviluppo 
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Una volta ritornati al foglio di Excel dal percorso Sviluppo - Sicurezza macro si aprirà la finestra Centro 
protezione e viene mostrata la scheda /mpostazioni macro con le seguenti opzioni. 


Cartell - Excel 


HOME INSERISCI LAYOUT DI PAGINA FORMULE DATI REVISIONE VISUALIZZA = 


i 9 Registra macro È È I l [E] Proprietà ! 

hl IU Usa riferimenti relativi - i È it E) Visualizza codice | 
Visual  Macrg Componenti Componenti Inserisci Modalità i 
Basic aggiuntivi aggiuntivi COM jettazior [a] Esegui finestra di dialogo 


Componenti aggiuntivi — LL Controlli 


Auton attendibili È 
Impostazioni macro 


Percorsi attendibili 


Disattiva tutte le macro senza notifica 
Documenti attendibili o ‘ 
@ Disattiva tutte le macro con notifica 


3 pahi ant attendibil 
Cataloghi app attendibili Disattiva tutte le macro tranne quelle con firma digitale 
Componenti aggiuntivi Attiva tutte le macro (scelta non consigliatà; potrebbe venire eseguito codice pericoloso) 


Impostazioni ActiveX 


Visualizzazione protetta 


Impostazioni macro sviluppatori 


vi. Considera attendibile l'accesso al modello a oggetti dei progetti VBA 


Barra messaggi 
Contenuto esterno 
Impostazioni tipi file 


Opzioni privacy 


[ox] Faneia) 


Y Disattiva tutte le macro senza notifica, se ne consiglia l’uso quando le macro non sono 
considerate attendibili e tutte le macro nei documenti e gli avvisi di protezione per le macro 
verranno disattivati; 

Y. Disattiva tutte le macro con notifica; Questa opzione disattiva le macro, ma viene mostrato un 
avviso qualora siano presenti delle macro nel file che si va ad aprire. In questo modo è possibile 
scegliere se attivarle o meno 

Y. Disattiva tutte le macro tranne quelle con firma digitale. Questa opzione è uguale alla 
precedente, con la differenza che la macro può essere eseguita se è firmata da un editore 
attendibile che è già stato considerato tale. In caso contrario, si riceverà una notifica e sarà 
possibile scegliere se attivare le singole macro firmate o considerare attendibile l'editore. Tutte 
le macro senza firma vengono disattivate senza notifica; 

Y. Attiva tutte le macro. Con questa impostazione tutte le macro vengono eseguite senza mostrare 
nessun avviso. È un'impostazione pericolosa e si sconsiglia di adottarla. 


Si consiglia di selezionare l'opzione Disattiva tutte le macro con notifica in modo che quando viene 
aperto un file contenente codice VBA Excel rimanda un avviso che il file che si sta per aprire contiene 
un progetto VBA che identifica come potenzialmente pericoloso 
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Se si vuole attivare il codice VBA per poterlo utilizzare, basta premete il pulsante Abilita contenuto della 
figura sopra riportata. In alternativa a questa procedura, si può salvare tutti i file con il codice VBA in 
una cartella e definire quella cartella come percorso attendibile. 


2. Introduzione agli Oggetti 


Le istruzioni date a Excel sono sotto forma di codice, vengono chiamate macro o procedure e sono 
sviluppate in Visua/ Basic Editor (VBE), che è l'ambiente di sviluppo VBA. Utilizzando il VBA è possibile 
facilitare le operazioni necessarie per ottenere un risultato, sia esso di calcolo che di ricerca, attraverso 
delle azioni svolte su un Oggetto, in pratica, attraverso un semplice Click su un pulsante, il computer 
elabora una serie di dati, agevolando così il lavoro. 

È necessario, per prima cosa, illustrare alcune piccole terminologie di base che identificano le varie fasi 
della programmazione, ricordando che ogni oggetto, presente nella casella degli strumenti è dotato di 
un insieme di Proprietà, Metodi ed Eventi, 


2.1 Oggetti: Proprietà e Metodi 


Un oggetto è una “cosa” che contiene i dati e ha Proprietà e Metodie sono una parte fondamentale 
della programmazione VBA. Gli Oggetti sono la cartella di lavoro, il foglio di lavoro, un pulsante di 
comando, i font, i pulsanti di opzione che andiamo ad inserire su un foglio e ai quali affidiamo il 
compito di eseguire una determinata azione 


Y Le Proprietà sono le caratteristiche o gli attributi che descrivono l'oggetto, come il nome, il 
colore, la dimensione, e definiscono il comportamento di un oggetto. 


| Metodi sono le istruzioni, impartite ad un oggetto, relative alle azioni che deve 
intraprendere in risposta ad un evento e ogni tipo di oggetto ha un elenco di metodi diversi 
e specifici per compiere azioni . 


v Gli Eventi sono le azioni, che vengono svolte durante l’utilizzo del programma dall'utente finale 
e sono connesse ad un oggetto. Una routine evento viene attivata quando si verifica un evento 
come l'apertura, la chiusura, l'attivazione o disattivazione della cartella di lavoro, la selezione di 
una cella o cambiando la selezione delle celle in un foglio di lavoro, e così via. 


Le procedure di evento sono collegate a oggetti come la cartella di lavoro, il foglio, i grafici, le Formoi 
vari controlli e sono attivate da un evento predefinito. Vengono installate all'interno di Excel con un 
nome standard e predeterminato, come la procedura di modifica del foglio di lavoro viene installata 
con il foglio di lavoro e denominata Private Sub Worksheet_Change. 
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In questa routine l'oggetto foglio di lavoro è associato all'evento Change, che contiene un codice 
personalizzato che viene eseguito automaticamente quando si modifica il contenuto di una cella del 
foglio di lavoro. Il modello a oggetti Application rappresenta l’intera applicazione Excel e contiene tutti 
gli oggetti di programmazione legati gli uni agli altri in una gerarchia. L'oggetto Application è in cima 
alla gerarchia di oggetti di Excel e spostandosi verso il basso è possibile accedere all'oggetto cartella di 
lavoro (Workbook), ai fogli di lavoro (Wotsheet), alle Celle etc. 


Gli oggetti di Excel sono accessibili attraverso oggetti “padri”, il foglio di lavoro è il genitore dell'oggetto 


Range (Celle), la cartella di lavoro (Workbook) è il padre dell'oggetto foglio di lavoro (Worksheet), e 
l'oggetto Application è il padre dell'oggetto Workbook. 


2.2 L’Insieme Workbooks 


L'oggetto Workbook rappresenta una cartella di lavoro di Excel, ed è un elemento dell'insieme 
Workbooks che contiene tutti gli oggetti Workbook aperti in Excel. 


Workbooks.Close ‘chiude tutte le cartelle di lavoro aperte 
Workbooks.Add ‘aggiunge una nuova cartella di lavoro vuota 
Workbooks(1).Activate ‘attiva la prima cartella di lavoro aperta 


Il numero di indice determina l'ordine nel quale le cartelle di lavoro sono state aperte o create, per cui: 
Workbooks(1) rappresenta la prima cartella di lavoro creata 


2.3 L’Insieme Worksheets 


L'insieme Worksheets è un insieme di tutti gli oggetti Worksheet nella cartella di lavoro specificata o 
attiva e ciascun oggetto Worksheet rappresenta un foglio di lavoro. 


Worksheets(1).Visible = False ‘nasconde il foglio 1 della cartella attiva 
Worksheets("Foglio1").Activate ‘attiva Foglio1 


Se il foglio attivo è un foglio di lavoro, per farvi riferimento si può utilizzare la proprietà "ActiveSheet" 


MsgBox ActiveSheet.Name ‘stampa a video il nome del foglio attivo 
ActiveSheet.PrintOut ‘stampa il foglio di lavoro 


2.4 L’Insieme Sheets 


Sheets è l'insieme di tutti i fogli della cartella di lavoro specificata o attiva e può contenere l'oggetto 
Chart (grafico) o Worksheet (foglio di lavoro). 


Sheets.PrintOut ‘stampa tutti i fogli della cartella attiva 
Sheets("Foglio1").Activate ‘attiva Foglio1 
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2.5 L’Insieme Range 


Rappresenta una cella, una riga, una colonna, una selezione di celle contenente uno o più blocchi 
contigui di celle. Per restituire un oggetto Range che rappresenta una singola cella o un intervallo di 
celle, la modalità di utilizzo è 


| Worksheets("Foglio1").Range("A5").Value = 15 ‘Inserisce il valore 15 nella cella A5 


Quando viene utilizzata senza qualificatore di oggetto (vale a dire l'oggetto prima del punto), la 
proprietà Range restituisce un intervallo del foglio attivo. Si può utilizzare il metodo Activate per 
attivare un foglio di lavoro prima di utilizzare la proprietà Range senza il qualificatore di oggetto 


Worksheets("Foglio1").Activate 
Range("A1:A10").Formula = "=Rand()" ‘inserisce un numero causale nel range 


2.6 La Proprietà Cells 


La proprietà Ce/ls restituisce un oggetto che rappresenta tutte le celle del foglio di lavoro attivo e la 
modalità di utilizzo è Ce//s(row, column) dove rowè l'indice di riga e columnè l'indice della colonna, 
per restituire una singola cella. 


Worksheets(1).Cells(1, 1).Value = 15 ‘imposta il valore di A1 a 15 
ActiveSheet.Cells(2, 1).Formula = "=Somma(A1:B10)" ‘imposta la formula nella cella A2 


2.7 La Proprietà Columns 


Un oggetto Application restituisce un oggetto che rappresenta tutte le colonne del foglio di lavoro 
attivo mentre per un oggetto Range restituisce le righe dell'intervallo specificato. Utilizzare questa 
proprietà senza un qualificatore di oggetto equivale ad ActiveSheet. Columns 


Worksheets("Foglio1").Columns(1).Font.Bold = True ‘imposta il grassetto alla Colonna A 
Columns(1).Value = 0 ‘imposta tutte le celle a zero della colonna 1 


2.8 La Proprietà Rows 


Un oggetto Application, restituisce un oggetto che rappresenta tutte le righe del foglio di lavoro attivo 
mentre per un oggetto Worksheet, restituisce tutte le righe del foglio di lavoro specificato. Utilizzare 
questa proprietà senza un qualificatore di oggetto equivale a ActiveSheet.Rows 


Worksheets("Foglio1").Rows(3).Delete ‘elimina la riga 3 di Foglio1 
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3. Oggetti e Routine in VBA 


Il VBA è un linguaggio di programmazione orientato agli oggetti e consente di gestire le applicazioni con 
semplicità in quanto la Programmazione ad Oggetti è un sistema di organizzazione del codice di un 
programma mediante raggruppamento all'interno di oggetti, ovvero singoli elementi che 

presentano Proprietà e Metodi. In pratica non è più il programma a gestire il flusso di istruzioni, ma 
sono gli oggetti che interagiscono tra di loro intervenendo sulle azioni del programma. 


Riferendoci alla cartella di lavoro possiamo dire che essa è costituita da oggetti di varia natura, come gli 
oggetti grafici o i controlli (finestre di dialogo, pulsanti etc.) incollati su un foglio, ma non è questa la 
peculiarità di un foglio elettronico la cui ossatura è costituita, partendo dal livello più basso, da: 


Celle 

Intervalli 

Fogli 

Cartelle di lavoro 


Si SR 


Ricordiamo inoltre che se osserviamo questo insieme di oggetti come un albero genealogico il 
capostipite, spetta all'oggetto, denominato Application, che rappresenta tutti gli oggetti di Excel. Si 
tratta appunto di Excel stesso. Proseguendo nella discesa genealogica troveremo i seguenti oggetti: 


v. L'oggetto Workbook ‘corrisponde alla cartella di lavoro (il nostro file) 
v. L'oggetto Worksheet ‘corrisponde al foglio di lavoro (Foglio1, Foglio2 etc.) 
v. L'oggetto Range ‘corrisponde a un intervallo di celle (A1: B12, C1:D12, etc.) 


Sintatticamente possiamo affermare che ciascun oggetto fa parte di una famiglia o classe e l'accesso al 
singolo membro di ciascuna classe si effettua attraverso metodi, pluralistici, cioè da una pluralità di 
metodi che collaborano e interagiscono con i vari oggetti in maniera omogenea e ai quali 
corrispondono insiemi di oggetti quali, Workbooks, Worksheet, Range e Cells. 


Fin qui abbiamo delineato i componenti principali cercando di esporre come vengono interpretati da 
Visual Basic applicato al foglio elettronico, ma l'obiettivo vero è quello di focalizzare gli oggetti che 
formano l'ossatura, il nucleo di un foglio di lavoro, al cui centro, vi sono intervalli e celle con il loro 
contenuto di dati da elaborare e il loro inquadramento nel mondo Visual Basic è fondamentale e 
aiuterà a capire meglio. Se usiamo queste sintassi Workbooks("prova.xls") e Worksheets("Foglio1") 


Si individuano rispettivamente la cartella e il foglio di lavoro (notare i loro nomi virgolettati dentro le 
parentesi), ma dobbiamo però tenere presente che un elemento può anche venire individuato tramite 
un indice, il quale può essere o il numero di ordine o il nome fra virgolette. Per capire meglio il 
concetto di indice possiamo dire che la sintassi Workbooks(2) e Workbooks("prova.xIs") puntano 
entrambe alla stessa cartella prova.xIs a patto che questa sia la seconda fra quelle aperte 
contemporaneamente da Excel. Allo stesso tempo se abbiamo solo la cartella prova.xlIs aperta, la 
sintassi esatta diventa Workbooks(1). 

L'indice che usiamo fra parentesi nell'oggetto Workbooks varia ed è strettamente legato al numero di 
cartelle aperte nel momento dell'esecuzione di questa istruzione, pertanto possiamo scrivere questa 
istruzione in tre diversi modi: 


v Application.Workbooks(1).Worksheets(1).Range("A1:B 10") 


v Application.Workbooks("prova.xls").Worksheets(1 ).Range("A1:B10") 
v Application.Workbooks("prova.xls").Worksheets(" Foglio1").Range("A1:B10") 
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Abbiamo però affermato che i membri più elevati si possono omettere quando sono attivi, per cui: 


v__Se abbiamo Excel aperto 
v Se la cartella prova.xIs è aperta 
v__ Se infine ci troviamo nel Foglio1 


Possiamo ridurre tutto il listato ad un semplice Range("A1:B10"), in caso contrario credo che sia 
abbastanza chiaro come agire usando gli indici per individuare il nostro intervallo (o Range). Si deve 
inoltre prestare attenzione alle proprietà "pluralistiche" che poco sopra abbiamo citato: le prime volte 
è facile scordarsi del plurale, scrivendo Workbook("prova.xls") anziché Workbooks("prova.xIs") 
oppure Worksheet("Foglio1") invece di Worksheets("Foglio1"). 


3.1 Le Routine 


Abbiamo usato diverse volte il termine Routine, vediamo ora di capire cosa sia. Una routine (o 
procedura) è definita come un insieme di codici che permettono di eseguire un'azione ed è 
generalmente di due tipi: Public o Private. 


v Public è quando ha valore per l’intero progetto 
Y Private ha validità solo all’interno del Modulo sul quale e stata scritta. 


Una routine inizia con la dichiarazione della parola chiave Sub, seguita da un nome e poi seguita da una 
serie di parentesi e si conclude con una dichiarazione End Sub che può essere digitato, ma appare 

automaticamente dopo aver digitato il nome della procedura seguito dalla pressione del tasto Invio per 
andare alla riga successiva. Il codice VBA o le dichiarazioni sono inseriti in mezzo tra le due dichiarazioni 


Public Sub CommandButton1_Clik() 


‘Altro codice 
End Sub 


3.2 Come eseguire una Routine 


Ci sono molti modi per eseguire una macro, possiamo utilizzare la finestra di dialogo macro, o il tasto di 
scelta rapida, o in VBE o assegnando la macro a un oggetto. La finestra di dialogo macro è raggiungibile 
dalla barra multifunzione, seguendo il percorso Visualizza - Macro - Visualizza Macro 


SVILUPPO 
È [A CA i fai i lan _ po m 


100% Zoom Nuova Disponi Blocca Cambia Macro. 


selezione | finestra tutto riquadri» MESTTA ‘finestra > x 


Zoom Finestra E; Visualizza macro 


®7 Registra macro... 


3) Usariferimenti relativi 
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In seguito si aprirà la finestra di dialogo 
macro, in cui si deve selezionare il nome 
della macro e cliccare sul 

pulsante Esegui per mandarla in 
esecuzione. 


È inoltre possibile aprire la finestra di 
dialogo macro sempre dalla barra 
multifunzione seguendo il percorso dalla 


«2.2:4*% scheda Sviluppo — Macro 


A RE Cartell - Excel 
FILE INSERISCI LAYOUT DI PAGINA FORMULE DATI REVISIONE VISUALIZZA (GU) 
È 25) Registra macro È = ns 24 [E] Proprietà [ 
> - i Usa riferimenti relativi Le, 3 it QI Visualizza codice 
Visual Macro Componenti Componenti Inserisci Modalità 
Basic (& Sicurezza macro aggiuntivi aggiuntivi COM...... v. progettazione [E] Esegui finestra di dialogo 


Codice 


Componenti aggiuntivi 


Controlli 


oppure direttamente dall’editor di Visual Basic, si deve fare clic all'interno della sub e premere F5 (0 
fare clic su Esegui nella barra dei menu e quindi fare clic su Esegui Sub/UserForm). 


Formato Strumenti | Aggiunte 


€ Riferimenti... 


Opzioni... 
Proprietà di VBAProject... 


Debug Ar Finestra 2 


MsgBpx "Pi 
End Sub 


Firma digitale... 


VISUALIZZA | 
de d [E] Proprietà 


&) Visualizza codice 


REVISIONE 


Modalità 
progettazione [11] Esegui finestra di dialogo 


Controlli modulo Controlli 


Paloma 


[3 Aa sbl 
Control ActiveX 


Nome macro: 


Pulsantet_Click 
\test 


Si può mandare in esecuzione una macro 
dall’editor di Visual Basic, seguendo il percorso 
Strumenti - macro che apre la finestra di dialogo 
Macro e nella finestra che appare, selezionare il 
nome della macro e fare clic su Esegui. 


Un buon modo per eseguire una routine è quello 
di fare clic su un pulsante accompagnato da un 
testo esplicativo posto sul foglio di lavoro, per 
questo è necessario assegnare la macro a un 
oggetto, forma, grafico o controllo. 


È possibile assegnare una macro a qualsiasi 
controllo agendo dalla scheda Sviluppo sulla barra 
multifunzione, cliccando su Inserisci nel 

gruppo Controlli, selezionare e fare clic sul pulsante 
nei controlli modulo e cliccare sul foglio di lavoro 
in cui si desidera posizionarlo nell'angolo superiore 
sinistro del pulsante (è possibile spostare e 
ridimensionare in seguito). 


Successivamente cliccando col destro del mouse 
sul pulsante, dal menu a discesa che compare 
selezionare Assegna macro e si apre la finestra di 
dialogo dal quale è possibile selezionare e 
assegnare una macro all'oggetto disegnato. 
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4. Prefazione Editor VBA 


Di solito si utilizza Microsoft Excel per creare documenti utilizzando le impostazioni predefinite 
dell'applicazione, ma se vogliamo applicare delle funzioni avanzate ad un foglio di calcolo, possiamo 
utilizzare Microsoft Visual Basic, un'applicazione che si installa automaticamente con Microsoft Excel. 


4.1 Visual Basic Editor — VBE 


VBE è contenuto nella cartella di lavoro di Microsoft Excel, ed è un ambiente usato per scrivere, 
modificare ed eseguire il debug di codice VBA che si può avviare in Excel 2007 dai seguenti percorsi: 


v. Dalla scheda Sviluppo - Visual Basic 

v. Dalla scheda Sviluppo - Visualizza codice 

v. Cliccare col destro del mouse sulla scheda del nome foglio. quindi cliccare Visualizza Codice 

v. Premere la combinazione di tasti Alt + F1 

I componenti di Visual Basic Editor si riferiscono alla Finestra del Codice, la Finestra Gestione Progetti, la 
Finestra Proprietà e l'area di lavoro di programmazione. La Finestra del codice è dove scrivere e 
modificare le procedure, e anche dove le macro vengono registrate, mentre esplora progetti visualizza 
l'elenco di tutti i progetti esistenti e fornisce una vista ad albero in cui è possibile, nascondere, o 
visualizzare, gli oggetti, i Form e i moduli contenuti in un progetto. 


Ogni progetto contiene una cartella oggetti, chiamata Microsoft Excel Objects, una cartella Forms, una 
cartella Moduli e una cartella moduli di classe. La cartella Objects è sempre presente e contiene un 
oggetto foglio per ogni foglio di lavoro esistente, e un oggetto ThisWorkbook. Ogni oggetto foglio ha un 
primo nome che appare prima delle due parentesi, che è il nome del foglio e un secondo nome che 
compare tra le parentesi che è il nome della scheda del foglio che appare nel foglio di lavoro di Excel. 
Per visualizzare la finestra di Esplora progetti, si deve cliccare su Visualizza sulla barra dei menu VBE e 
quindi selezionare Esplora progetti, o premere CTRL + R in VBE. 


4.2 Moduli in Excel — VBE 


Le macro VBA devono risiedere nei loro appositi moduli o Excel non sarà in grado di trovare ed 
eseguirli, oggetto Modulo viene utilizzato per le procedure di evento incorporate in Excel e per creare 
i propri eventi che sono: 


Modulo 

ThisWorkbook 

Moduli Sheet (fogli di lavoro e fogli grafici) 
Moduli Form 

Moduli di classe 


— Ra 


In generale il codice VBA nei confronti degli eventi non associati a un particolare oggetto (cartella di 
lavoro o un foglio) vengono inseriti in un modulo di codice standard, una pratica generalmente 
accettata è quella di piazzare le routine di evento nel modulo ThisWorkbook, nei moduli di fogli e 
UserForm, pur ponendo altro codice VBA in moduli standard. 
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I moduli di codice standard sono anche indicati come moduli di codice o moduli, e ci possono essere 
vari moduli (Modulo1, Modulo2 etc.) in un progetto VBA, in cui ciascun modulo può essere utilizzato 
per coprire un certo aspetto del progetto. Per inserire un modulo si deve cliccare su Inserisci sulla barra 
dei menu VBE e quindi selezionare Modulo. 


4.3 Proseguimento linea del codice 


Molte volte durante la scrittura di codice VBA, una sola riga di codice potrebbe diventare molto lunga e 
nella finestra del codice sarà necessario scorrere verso il lato destro per leggerlo. Per dividere una 
singola riga in più righe in VBA, è possibile utilizzare la linea come carattere di continuazione che è la 
combinazione di uno spazio seguito da un underscore _ . Usando questo carattere come una 
interruzione di linea, vi permetterà di passare alla riga successiva e così via, e questo sarà il trattamento 
per tutte le linee continue come una singola riga nel codice VBA. 


4.4 Controllo automatico sintassi 


Durante la scrittura di codice VBA, il codice che ha un errore di sintassi diventa rosso non appena il 
cursore si sposta sulla linea se il controllo automatico di sintassi è selezionato (impostazione di default). 
Un controllo della sintassi viene eseguito ogni volta che si sposta il cursore su una nuova linea e in caso 
di errore di sintassi una finestra pop-up avverte con un messaggio "errore di compilazione". Se il 
controllo automatico di sintassi è deselezionato, non sarà più possibile ottenere questi box di avviso, 
anche se l'errore farà diventare rossa la riga del codice. È possibile deselezionare il controllo 
automatico di sintassi andando in VBE, seguendo il percorso Strumenti — Opzioni e nella finestra 
visualizzata, selezionare la scheda Editor, e deselezionare la casella di controllo. 


È inoltre possibile modificare il colore rosso di default dell’errore di sintassi andando in VBE, cliccate 


su Strumenti — Opzioni e nella finestra visualizzata, selezionare la scheda Formato, selezionare sintassi 
del testo di errore nella casella di riepilogo codice colori, e poi scegliere il nuovo colore di primo piano. 


4.5 Indentare il codice VBA 


La procedura di VBA può essere composta da più righe di codice con una serie di dichiarazioni e 
quando il codice diventa più lungo e complesso, la formattazione del codice con un rientro contribuirà 
a rendere più facile da leggere, e il debug più semplice. Gli sviluppatori utilizzano in genere un rientro 
per il codice all'interno delle linee di inizio e fine dei Loop o in un ciclo For Next, in cui si usa rientrare 
per una serie di righe di codice per distinguerli come appartenenti ad un particolare procedimento. 
L'indentazione è molto utile nel codice nidificato in modo che ogni blocco di codice è visivamente 
separato, e le linee di inizio e fine di ogni blocco sono allineate. 


L’Indentazione di solito è fatta premendo il tasto Tab una o più volte, prima di digitare il codice, per 
impostazione predefinita in VBA, premendo il tasto Tab si sposta il cursore di quattro spazi o caratteri a 
destra. Questa impostazione del valore della scheda può essere modificata andando in VBE, e 
seguendo il percorso Strumenti — Opzioni e nella finestra visualizzata selezionare la scheda Editor e 
inserire il nuovo valore nella casella "Larghezza linguetta". Nella scheda Editor della finestra di dialogo 
Opzioni, è possibile anche selezionare "Rientro tabulazione", che ripeterà il rientro della riga corrente 
premendo Invio. 
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4.6 Commento del codice 


All'interno di una procedura, durante la scrittura di codice è possibile contemporaneamente fornire 
commenti per spiegare lo scopo e ciò che il codice sta facendo. Per differenziare i commenti con il 
codice, dovete inserire un singolo carattere di apostrofo (') o con la dicitura Rem seguito da uno spazio. 
I commenti verranno ignorati da VBA in modo che un errore di sintassi nel commento non viene 
restituito. Si consiglia di utilizzare i commenti nel codice che saranno di grande aiuto se si deve 
effettuare una modifica in un secondo momento. Una volta che si aggiunge un carattere di commento 
(') all'inizio di una riga è possibile utilizzare la sequenza di continuazione (_) per continuare il commento 
alla riga successiva e quando si preme il tasto Invio dopo aver digitato un commento, il suo colore 
diventa verde, come da impostazione predefinita di VBA. 


Questa impostazione predefinita del colore del commento può essere modificato andando in VBE, e 
seguendo il percorso Strumenti — Opzioni — Formato Editor 


? Opzioni 


Editor | Formato editor | Generale | Ancoraggio 
Colori codice 


Testo normale 
Testo della selezione 

Testo dell'errore di sintassi = 
Testo del punto di esecuzione 
Testo del punto di interruzione 
Testo del commento 


Testo della parola chiave 


«> 


Macro... 


Opzioni... 
Proprietà di VBAProject... 


Firma digitale... 


4.7 Parole chiave di VBA 


Le parole chiave sono parole riservate che VBA usa come parte del suo linguaggio di programmazione e 
sono parole o comandi che sono riconosciuti da VBA e possono essere utilizzati nel codice solo come 
parte del linguaggio VBA e non altrimenti (come i nomi delle sub-routine o variabile). Esempi di parole 
chiave sono: Sub, End, Dim, lf, Next, And, Or, Loop, Do, Len, Close, data, Else, Select, e così via. Per 
ottenere aiuto su una determinata parola chiave, inserire il cursore del mouse all'interno della parola 
(nel codice VBA in VBE) e premere F1. 


27 


Microsoft® 


for Applications 


5. Inserire un modulo nell’editor VBA 


Per inserire una macro si deve accedere all’editor VBA cliccando sull'icona di Visual Basic nella scheda 
Sviluppo della barra multifunzione, oppure è possibile premere i tasti ALT + F11 sulla tastiera 


Cartell - Excel 


NSERISCI LAYOUT DI PAGINA FORMULE DATI REVISIONE VISUALIZZA uurrd 
Registra macro dt va ni vw Proprietà 
v mel "A 


O: 

3 Usa riferimenti relativi $ al IT & Visualizza codice | 
Visual | Componenti Componenti |Inserisci Modalità. _— i da 10 
Basic i Sicurezza macro aggiuntivi aggiuntivi COM * progettazione L&| Esegui finestra di dialogo 


Component agghitim | Controlli 


Le macro sono memorizzate in moduli, guardate nella finestra del progetto VBA e se la finestra non 
fosse visibile si deve seguire il percorso Visualizza — Gestione Progetti dal menu. Selezionare poi la 
cartella di lavoro in cui si desidera inserire il codice, che si possono identificare dal nome della cartella 
tra parentesi accanto alla dicitura VBAProject. In questo modo ogni cartella di lavoro aperta avrà una 
voce nella finestra del progetto VBA 


A questo punto si deve fare clic col pulsante 
destro del mouse sulla cartella di lavoro in cui 
si desidera inserire il codice e selezionare 

a e: A da Dm èZ "Inserisci" e poi "Modulo" dal menu che 
appare 


File Modifica Visualizza Inserisci Formato Debug 


Foglio i (Foglio 1) 


i.) Questa_cartella_di lavoro 
+ - - 


Quando si fa doppio clic su un modulo nella finestra 
di progetto VBA il codice di tale modulo viene 
S-U visualizzato nella finestra del codice principale, 

Festa anche se un nuovo modulo normalmente non 

contiene alcun codice (può contenere "Option 

i i [a] == = Explicit" se si dispone di questa opzione attivata). E' 
3-2 VBAProject (Cartel1) 
i [3 Microsoft Excel Oggetti 


Ì 
‘ 
>“ sa SAGRE . 
°. possibile modificare il nome del modulo cliccando 
Foglio 1 (Foglio 1) 2 sulnomestesso nella finestra delle proprietà, 
Ì Questa_cartella_di_lavoro PÀ evidenziata dalla freccia blu nella figura a fianco 

Cal 


[ci Moduli 

poi «tt [ENI 
(2 VBAProject (FUNCRES.XLAM) i 
+ 

z 
|Proprietà - 3 
Modulo1 Modulo SE 
| Alfabetico |pPera # 
[inamey CY è 
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Formato Debug Esegui 


ruakbe&& 


PATTRIATOROMI —_ DRS Sub prova () 
= 8 VBAProject (Cartel1) 
>--$ Microsoft Excel Oggetti End Sub 
Foglio 1 (Foglio 1) 
Questa_cartella_di_lavoro 
2-23 Moduli 
«tì Modulo1 
#2 VBAProject (FUNCRES.XLAM) 


Sub prova() 
©) %$ VBAProject (Carteli) MsgBox "salve 
î [3-3 Microsoft Excel Oggetti 
Foglio 1 (Foglio 1) End Sub 
Questa_cartella_di lavoro 
A Moduli 
Modulo1 


ni È 
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Per creare una macro si deve cliccare 
sul modulo appena creato e nella 
finestra del codice digitare il nome 
assegnato alla macro (prova) 
preceduto dalla notazione Sub e 
premere Invio. Si dovrebbe ottenere 
un risultato come quello illustrato 
nella figura a lato 


Ora alla macro si deve solo 
aggiungere il codice per svolgere le 
azioni che desideriamo. Per 
esempio possiamo far apparire una 
finestra a video con un saluto, in 
questo caso aggiungiamo il codice: 
MsgBox “Salve” 


A questo punto dobbiamo solo eseguire la macro che possiamo fare in questo modo: 


vY Cliccare in qualsiasi punto all'interno della macro 
vY Selezionare Esegui-> Esegui Sub/UserForm 


Oppure, sempre posizionando il cursore in un punto qualsiasi della macro, cliccare sull'icona verde 


segnalata dalla freccia rossa nella figura a lato 


l’elenco delle macro disponibili e viene chiesto di selezionarne una da mandare in 


(i) Se il cursore non si trova all'interno di una macro, allora verrà visualizzata una finestra con 


esecuzione. 


salve 


aci Excel ES Mandando in esecuzione la macro si ottiene un risultato del genere: 
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6. Ambiente di Sviluppo e Generatore di Macro 


Avrete certamente notato, usando quotidianamente Excel, che capita molto spesso di svolgere le 
stesse operazioni ripetendo lo stesso comando per compiere normalissime azioni di routine che 
implicano le stesse modalità di esecuzione. Invece di ripetere la stessa serie di istruzioni ogni volta che 
si vuole eseguire una determinata operazione è possibile, utilizzando una macro, creare un 
automatismo che ci permetta di eseguire una serie di comandi automaticamente all'interno 
dell’applicazione stessa. 


Le macro sono procedure, o meglio, un insieme di comandi e istruzioni, che permettono di eseguire 
una serie di operazioni utilizzando un singolo comando, automatizzando attività ripetitive che 
altrimenti richiederebbero una vasta serie di comandi manuali in sequenza. In pratica una macro è una 
procedure composta da un insieme di istruzioni che permettono di eseguire un compito ripetitivo e che 
Microsoft ha reso disponibile nei suoi pacchetti Office anche ai non addetti ai lavori attraverso 
l'introduzione del Registratore di Macro 


6.1 Il Registratore di macro 


Un modo semplice per imparare VBA è quello di registrare le proprie macro con lo strumento 
Registratore di macro, e quindi leggere, eseguire e modificare il codice della macro che avete registrato 
in Visual Basic Editor. Una macro è un insieme di istruzioni fornite sotto forma di codici per rendere il 
computer in grado di eseguire un'azione e questo particolare strumento è presente in tutte le 
applicazioni di Office e permette di registrare una serie di operazioni in una macro per poi essere 
eseguite quando se ne presenta la necessità. 


Bisogna tenere presente che una volta attivato il registratore di macro vengono registrate tutte le 
azioni svolte dall'utente e convertite in codice Visual Basic, pertanto prima di compiere questa azione si 
devono fissare le condizioni nelle quali successivamente queste macro verranno eseguite, in sostanza, 
si deve stabilire nel proprio ambiente di lavoro le stesse condizioni che esisteranno quando la macro 
verrà eseguita. Questa operazione viene definita col termine di fissare le condizioni iniziali, per meglio 
comprendere si può supporre, per esempio, di voler creare una macro che applica un determinato tipo 
e dimensione di carattere a delle celle selezionate di un foglio Excel, le condizioni iniziali, che abbiamo 
accennato prima, sono che questa macro abbia almeno un foglio di calcolo aperto e una cella 
selezionata. 


Se avviamo il registratore di macro, dopo visualizziamo un foglio di calcolo e selezioniamo delle celle, 
tutte queste operazioni entrano a far parte della macro stessa in quanto, come abbiamo già detto, il 
registratore di macro registra tutte le azioni che si eseguono, anche quelle che esulano dal compito che 
si vuole assegnare, diventando così parte integrante della macro. 


In pratica per definire le condizioni iniziali si intende la "preparazione dell'ambiente di lavoro" in modo 
che il codice della macro contenga esclusivamente le operazioni da svolgere. Per poter mandare in 
esecuzione una macro dobbiamo prima verificare il grado di protezione che abbiamo impostato in 
Excel, lo possiamo vedere attraverso questo percorso Strumenti - Macro - Protezione e ci comparirà 
una maschera come quella sotto riportata 


30 


Microsoft® 


for Applications 


Protezione : Impostando il livello di protezione 
FERIRE su medio, come vedete nella figura a lato 
O Molto elevato, Saranno eseguite solo le macro installate in posizioni attendibili, verra mostrato un messaggio di avviso 


Tutte le altre macro firmate e prive di firma saranno disattivate. ogn i volta che andrete ada pri re file che 


O Elevato, Saranno eseguite solo macro con firma digitale e provenienti da fonti conterranno macro, e perm etterà di 
attendibili. Le macro prive di firma digitale saranno disattivate automaticamente. 


Lo 1 


©® Medio. Sarà possibile decidere se eseguire macro potenzialmente pericolose. scegl lere se esegui rle o meno. 


O Basso (scelta non consigliata). Mon verrà attivata alcuna protezione contro 
macro potenzialmente non sicure. Utilizzare questa impostazione solo se si 
dispone di un programma antivirus o se tutti i documenti da aprire vengono 
controllati. 


Avviso di protezione 


"CiiDocuments and Settings\UseriDesktop\Carteli xls" contiene macro, 


TO E Ra Il messaggio che vi apparirà è il seguente 
Poiché le macro possono contenere virus, è in genere consigliabile disattivarle 


se si desidera evitare eventuali problemi, Se le macro provengono da una 
fonte sicura, disattivandole si potrebbero tuttavia perdere alcune funzionalità. 


Disattiva macro Attiva macro. Ulteriori informazioni 


Per versioni di Excel superiori alla 2003 il livello di sicurezza è settato per default con le 
macro disabilitate, per poter salvare il file con il progetto VBA si deve seguire questo 
=" percorso dal menu File - Salva con nome e selezionare nella casella a discesa la voce Cartella 
di lavoro con attivazione macro di Excel 


Si consiglia di controllare il Centro di protezione per verificare il grado di sicurezza impostato a cui si 
può accedere dalla barra multifunzione seguendo il percorso dal menu Sviluppo - Sicurezza macro 


HOME INSERISCI LAYOUT.DI PAGINA FORMULE DATI REVISIONE VISUALIZZA SVILUPPO@ 


IRIS. EJ 2°) Registra macro oa E | or DA [E] Proprietà È, 
= da Usa riferimenti rel _ —& _ mit si &) Visualizza codice < 
Visual Macro i Componenti Componenti Inserisci Modalità RE dna è 

Basic {& Sicurezza macro aggiuntivi aggiuntivi COM...... v. progettazione Esegui finestra di dialogo 
Codice Componenti aggiuntivi Controlli 1 


Successivamente viene visualizzata la finestra del centro di protezione come quella sotto riportata in 
cui si consiglia di selezionare l'opzione “Disattiva tutte le macro con notifica” in questo modo quando 
viene aperto un file contenente codice VBA Excel rimanda un avviso che il file che si sta per aprire 
contiene un progetto VBA che 
identifica come potenzialmente 


pericoloso. 
Autori attendibili === 
Impostazioni macro . . 

Percorsi attendibili ‘ Scegliendo questa opzione 

© Disattiva tutte le macro senza notifica | quando poi andiamo ad aprire un 
®© Disattiva tutte le macro con notifica file che contiene macro ci viene 
FARMOoghi app. Mtendibri © Disattiva tutte le macro tranne quelle c| portato a video sotto la barra dei 
Componenti aggiuntivi © Attiva tutte le macro (scelta non consig MENÙ UN avviso in cui possiamo 
eseguito codice pericoloso) scegliere se attivarle oppure no 


Documenti attendibili 


Impostazioni ActiveX 
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I” . E’ doveroso ricordare che le 
CAS RA e NL: î macro possono contenere codice 
Home Inserisci Layout di pagina Formule Dati Rì dannoso o anche un'applicazione 
È % ca cha «lat g°| =(= »- - virale, pertanto fate attenzione | 
da” - nell'aprire file che riporteranno il 
incolta gi | 9-8 d A° * S 5 = messaggio sopra esposto, aprite 
inpunli ar matta | > file contenenti macro solo se siete 


certi della fonte. Fatta questa 
premessa iniziamo a costruire la 
nostra prima macro utilizzando il 
registratore di Macro che si trova nel menu Strumenti - Macro - Registra nuova macro 


Strumenti | Dati Finestra 
#7 Controllo ortografia... F7 Al 54 I 


Conversione euro... 


> Macro... ALT+F8 


® Registra nuova macro... 


Protezione... 


®). visual Basic Editor ALT+F11 


| Microsoft Script Editor ALT+MAIUSC+F11 


Mo) Per versioni di Excel superiori alla 2003 il percorso che dobbiamo seguire per registrare una 
nuova macro è: Visualizza - Macro - Registra Macro 


Visualizza Componenti aggiuntivi 


a 


oom 100% Zoom - dr 
| selezione EE Blocca riquadri ” (_| Scopri 


Finestra 


Foxit Reader PDF 


ES Dividi na ù [I O 
3 Nascondi | [a] fa : 
Salva area Cambia 
di lavoro finestra v 


Ei Nuova finestra 


E Disponi tutto 


J E Visualizza macro 


RE Registramacro., 


H | Usa riferimenti relativi 


Eseguita questa operazione ci comparirà una finestra come quella sotto riportata 


Vediamo i vari campi che compaiono 


Questa cartella di lavoro 


Descrizione: 


legistra macro 
Nome macro 1 . . . 
Macro? Nome macro: La prima opzione della finestra di 
facciano dialogo è il Nome Macro che per default viene 
qR+i assegnato un nome che consiste nella parola Macro 
Memorizza macro in: seguita da un numero in funzione del numero di 


macro già registrate in quella sessione di lavoro. Si 
consiglia però di assegnare un nome più significativo e 
personalizzato per identificare il compito assegnato 
alla macro. 


Tasto di scelta rapida: si può usare facoltativamente la 


casella di immissione rapida da tastiera per definire 


una combinazione di tasti che quando verrà premuta porterà all'esecuzione della macro, immettendo 
quindi la lettera che si vuole usare come "tasto rapido". Si consiglia di usare questa opzione solo nel 
caso in cui si ritenga che in seguito la macro verrà usata molto spesso. Ricordo inoltre che tutte le 
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combinazioni di tasti rapidi o "scorciatoie" sono combinazioni tra il tasto Ctrl (Control) e il tasto che 
viene assegnato, per esempio, se inseriamo Z nell'apposito campo, per eseguire la macro basta usare la 
combinazione di tasti CTRL+Z 


Memorizza macro in: In questo campo di testo è possibile scegliere dove salvare la macro una volta 
registrata. Le scelte previste sono: Cartella macro personale, Nuova cartella di lavoro, Questa cartella di 
lavoro. Se si sceglie Cartella macro personale Excel salva la macro in una speciale cartella 

detta Personal.xIs che viene caricata automaticamente quando si avvia Excel. Se invece si sceglie 
"Questa cartella di lavoro", la macro verrà salvata nella cartella corrente (scelta consigliata) 


Descrizione: Le informazioni inserite in questo campo non vengono usate dalla macro ma servono solo 
per aggiungere alcune note o commenti su ciò che fa la macro, per default il VBA immette una 
descrizione costituita dalla data di registrazione della macro e dall'autore 


Per fornire un esempio specifico, si supponga che tutti i giorni si debba aprire un file che si chiama 
"Lezione1" e si deve scrivere nella cella A1 del Foglio1 “Inizio ore 08,00” e nella cella A1 del 

Foglio2 “Fine ore 12,00” potremmo automatizzare questa procedura usando una macro. Premiamo sul 
tasto OK della figura sopra esposta e procediamo alla creazione della macro. 


Innanzi tutto attiviamo il Foglio1 e portiamo il cursore nella cella A1 e scriviamo la frase “Inizio ore 
08,00” e poi premiamo il tasto Invio, portiamoci poi nel Foglio2 e nella cella A1 e scriviamo la 
frase “Fine ore 12,00” e premiamo ancora Invio. Ritorniamo poi al Foglio1 e interrompiamo la 
registrazione della macro seguendo questo percorso: Strumenti - Macro - Interrompi registrazione. 


Strumenti | Dati Finestra ? A questo punto la nostra macro è stata creata, la 
4 Controllo ortografia... F7 (3) £| [iù 43 100% — @ procedura di fine registrazione può essere 

0 

Pi 


Conversione euro... eseguita nel modo sopra descritto oppure al 


pro momento della registrazione può comparire a 


DE | === video anche un box come quello qui sotto e 
Opzioni... | ud Interrompiregistrazione . N . . x 
S rimarrà sullo schermo durante la registrazione, è 
x Protezione... 


| possibile spostarlo come volete, e 
(8. Visual Basi Editor per fermare la registrazione basta 
| @® Microsoft Script Editor ALT- premere sul pulsante quadrato 
che vedete in figura a lato 


(i) Per versioni di Excel superiori alla 2003 per interrompere la registrazione della macro si 
deve seguire il seguente percorso Visualizza - Macro - Interrompi Registrazione 


| Strumenti | Dati Finestra ? 
7 Controllo ortografia... F7 21 zl ll Yi0% - ©@È Possiamo verificare se la macro 
CARE... psn n: O- A registrata funziona, cancelliamo quello 
sà 30 5 DET al > ve . . . ; 
sea = ms 3 che abbiamo scritto nei due fogli e 
> MATTO», ALTHFO | | 
proviamo a mandarla in esecuzione, 
Opzioni... i - 
* h Ni Beosra ruga magro seguendo il percorso dal 
w i, . 
BIRRERIE i menu Strumenti - Macro - Macro 
®) visual Basic Editor ALT+F11 


| @® Microsoft Script Editor ALT+MAIUSC+F11 


Per versioni di Excel superiori alla 2003 per mandare una macro in esecuzione il percorso da 
(i) seguire è: Visualizza - Macro - Visualizza Macro 
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In seguito si apre una maschera come quella a 
fianco riportata. In questo box vengono 
elencate tutte le macro registrate o scritte 
direttamente all'interno dell'editor, basta solo 
selezionare col mouse la macro interessata e 
premere sul pulsante Esegui per mandarla in 
esecuzione, oppure utilizzando il tasto di scelta 
rapida associato alla macro o semplicemente 
premendo il tasto F5. 


Si può eseguire una macro in modalità 
interruzione, (0 Step by Step) selezionando la macro e cliccando sul pulsante “Esegui Istruzione” che 
aprirà la finestra dell’Editor con il modulo che contiene la macro selezionata e già attivo e col cursore 
posizionato sulla prima riga di codice selezionata in giallo. Le istruzioni verranno eseguite premendo il 
tasto F8, questa è un'opzione per poter verificare il funzionamento della macro passo-passo. Premendo 
il tasto “Elimina” la macro selezionata verrà eliminata e cliccando sul tasto “Opzioni” si può cambiare 
l'assegnazione del tasto di scelta rapido e la descrizione della macro. Cliccando invece su “Modifica” si 
visualizza il codice della macro, e si accede all’Editor di VBE con la finestra dell’Editor già aperta e il 
codice della macro che è stato prodotto dall'azione compiuta. Nel nostro esempio troveremo un codice 
come il seguente: 


Sub Macro1() 


' Macro1 Macro 
' prova registratore di macro 


Range("A1").Select 
ActiveCell.FormulaR1C1 = "Inizio ore 8,00" 
Range("A2").Select 
Sheets("Foglio2").Select 
ActiveCell.FormulaR1C1 = "Fine ore 12,00" 
Range("A2").Select 
Sheets("Foglio1").Select 
End Sub 


Dal listato vediamo che la prima riga contiene l'intestazione della procedura, cioè la parola 

chiave Sub seguita dal nome che abbiamo assegnato alla macro e da due parentesi, che indica l’inizio 
della sub routine e nell'ultima riga è presente la parola chiave End Sub che indica la fine della procedura 
e tra le due istruzioni vengono collocate le istruzioni da seguire 


Le prime 5 righe sono precedute da un apice e sono dei commenti che vengono ignorate dal VBE, 
mentre alla riga 6 viene selezionata la cella A1 tramite l'istruzione Se/ecte nella riga successiva viene 
inserita la scritta “Inizio ore 8,00” mentre a quella successiva viene selezionata la cella A2 che 
corrisponde alla pressione del tasto Invio che rimanda a capo e seleziona la cella A2 nel foglio di lavoro. 
Nella riga 9 viene selezionato il foglio 2 e nella riga successiva viene inserita la scritta “Fine ore 12,00” 
nella cella A1, si passa poi alla cella A2 quando viene premuto il tasto invio nel foglio di lavoro che 
rimanda a capo e infine si ritorna al foglio 1 terminando la registrazione. 


Se si desidera che una macro selezioni una cella specifica, esegua un'azione e poi selezioni un’altra 
cella mediante un riferimento relativo alla cella attiva, è possibile utilizzare dei riferimenti di cella 
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definiti relativi e assoluti durante la registrazione della macro. Per registrare una macro utilizzando 
riferimenti relativi, si deve attivare la funzione dal percorso Visualizza — Macro — Usa riferimenti 
relativi della barra multifunzione 


VISUALIZZA SVILUPPO 


| Q |> FA E$3 Nuova finestra |] Dividi 
= Disponi tutto Nascondi | [Bj : 
Zoom 100% Zoom __| Cambia 


] e co [csi Ra 
selezione BE] Blocca riquadri |_{Scopri LEI | finestra” 


Finestra Efr Visualizza macro 


|] Registra macro... 


i Usa riferimenti relativi 


6.2 Definizione di riferimento assoluto 


Per “riferimento assoluto” si intende l'indirizzo esatto di una cella, indipendentemente dalla posizione 
della cella contenente la formula. Un riferimento assoluto ha la forma $A$7, in pratica viene inserito il 
simbolo S prima del riferimento, notare che possono esistere riferimenti di cella misti, che presentano 
la seguente forma AS1, in questo caso il riferimento assoluto è riferito alla riga, mentre un riferimento 
assoluto per la colonna ha la forma SA1. Diversamente dai riferimenti relativi, i riferimenti assoluti non 
si adattano automaticamente quando si copiano delle formule su righe e colonne. 


Sub copial() 


Range("A1").Value = Range("A3").Value 
End Sub 


6.3 Definizione di riferimento relativo 


Per “riferimento relativo” si intende un riferimento di cella, utilizzato in una formula, che cambia 
quando la formula viene copiata in un’altra cella o intervallo. Dopo che la formula viene copiata e 
incollata, il riferimento relativo nella nuova formula cambia per fare riferimento a una cella differente 
distante dalla formula lo stesso numero di righe e colonne che distanziano il riferimento relativo 
originale dalla formula originale. 


6.4 Limitazione del registratore di macro 


Si può osservare che la procedura di registrazione di una macro, anche se è un modo semplice e uno 
strumento utile per imparare e creare codici VBA, può essere utilizzato solo per i codici semplici e di 
base e non per la creazione di codici avanzati e procedure complesse. Durante la registrazione di una 
macro è possibile creare solo sotto-procedure e non funzioni che restituiscono un valore, non è 
possibile alloccare in memoria le informazioni durante la registrazione e non possono essere utilizzate 
le variabili, oppure utilizzare istruzioni condizionali o chiamare altre procedure o funzioni. 
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7. Editor di Visual Basic For Application 


Abbiamo visto come registrare ed eseguire una macro, ora vediamo l’Editor di Visual Basic, che offre 
numerosi strumenti avanzati di sviluppo e programmazione per modificare o scrivere delle macro, 
creare finestre di dialogo personalizzate e tanto altro, consentendo di far interagire le applicazioni di 
Microsoft Office con moduli programmati. Faremo una panoramica generale dell’editor di VBA e 
approfondiremo i comandi dei suoi menù, dei pulsanti delle barre strumenti e di come essi si 
ambientano in Excel. Le macro in Visual Basic for Applications sono memorizzate in una speciale parte 
della cartella di lavoro di Excel detta Modulo. Un modulo VBA contiene il codice sorgente della macro, 
ossia l'insieme delle istruzioni della macro stessa. Quando si registra una macro di Excel si può 
specificare la cartella di lavoro in cui verrà salvata, che può essere: 


V La cartella corrente 
v Una nuova cartella di lavoro 
Y La cartella macro personale (File Personal.xls) 


Vea = 7 — = = . l l l 
Registra macro |-2.|lesa]| Excel sceglie, o crea, se necessario, il modulo in 
game cui memorizza la macro registrata egli assegna 

ie il nome di default Modulo1, dove 1 è un 
numero progressivo che indica i moduli che 
Tasto di scelta rapida: 


sono stati creati in una cartella di lavoro. La 
prima volta che si salva una macro nella 
Memorizza macro in: cartella macro personale Excel crea un modulo 
Questa cartella di lavoro di nome Modulo1, se si continua a registrare 
2) legare macro e si salvano sempre nella cartella macro 
Questa cartella di lavoro personale, Excel continua a memorizzare le 
macro nel medesimo Modulo1. 


CTRL+ 


Se in seguito si sceglie di memorizzare una 
macro in una cartella di lavoro diversa, (questa 
cartella di lavoro) Excel aggiungerà un nuovo 
modulo denominato sempre Modulo1 in cui memorizzare la macro. Successivamente se si ritorna a 
memorizzare una macro nella cartella macro personale Excel aggiungerà un nuovo modulo 
denominato Modulo2 nella cartella di lavoro Personal.xIs 


Teniamo presente che la cartella macro personale viene caricata all'apertura di Excel pertanto se 
memorizziamo delle macro in questa cartella esse saranno disponibili per tutte le cartelle di Excel che 
andremo ad aprire o creare. In pratica se memorizziamo una macro in un foglio di calcolo normale una 
volta che questo file viene chiuso la macro non sarà più disponibile, mentre se scriviamo una macro 
che rappresenta una interessante funzione che potrebbe esserci utile in altri file la 

memorizziamo nel file Personal.xIs rendendola così disponibile anche per altri file Excel. 


‘Microsoft Excel a) Il file Personal.xls non è altro che un normale 
file di Excel con estensione xls, o xIsb per 
ZAN Salvare le modifiche apportate alla cartella di lavoro macro versioni di Excel superiori alla 2003, che ha 
personale? Se si sceglie Si, le macro saranno disponibili al solo la particolarità di essere caricato 
successivo avvio di Microsoft Excel. , Ng i ; 
all'avvio di Excel e di essere un file nascosto, 
| Nonsalvare | | Annulla | cioè non verrà visualizzato, inoltre quando 
inseriamo una macro al suo interno, alla 
chiusura del file di Excel ci viene richiesto il salvataggio del file personale in questo modo. Se per 
qualche motivo viene memorizzata una macro nella cartella macro personale e dovesse sorgere 


36 


Microsoft® 


for Applications 


qualche problema o interferire con le normali cartelle di lavoro di Excel si deve editare il 
file Personal.xIs e cancellare o modificare la macro che presenta le anomalie. 


Se non si riesce a modificare la macro e si vuole risolvere rapidamente il problema è possibile ricorrere 
a maniere drastiche, come la cancellazione del file, senza che la rimozione del file Personal.xls 
pregiudichi la normale esecuzione di Excel, in quanto se il file Personal.xIs è assente nel sistema Excel lo 
ricrea con le impostazioni di default. A solo scopo informativo il percorso dove viene localizzato il file 
Personal.xIsb (per Excel 2007 o superiori) è il seguente: 


C: \Utenti\NOME UTENTE\AppData\Roaming\Microsoft\Excel\XLStart 


Ovviamente dovete prima attivare la visualizzazione dei file nascosti, ma per il momento tralasciamo 
questo argomento che esula dal contesto della lezione. Per poter vedere i moduli contenuti in un file 
con estensione xls bisogna ricorrere all'Editor di Visual Basic, che è uno strumento che consente di 
creare moduli, esaminare i contenuti, creare o modificare il codice sorgente delle macro, creare 
finestre di dialogo e fare tante altre cose relative alla creazione e alla manutenzione di programmi in 
Visual Basic For Applications. 


Per vedere i moduli o il codice sorgente VBA in esso contenuto bisogna avviare l'editor VB e per farlo si 
può scegliere una di queste opzioni: Selezionare dal menu Strumenti - Macro - Editor Visual Basic 
oppure premere semplicemente i tasti ALT+F11, Excel avvierà l'editor VB che viene visualizzato come in 
figura sotto riportata 

# Microsoft Visual Basic, 


[ra File Modifica Visualizza Inserisci Formato Debug Esegui Strumenti Aggiunte Finestra 


ME@-Js A , 
Progetto - VBAProject x| 


DE = i = 2 + ComboBox1.ListIndex 
(2) 


#8 VBAProject (0-Preventivi.xls) If Lefr(ActiveSheev.Name, 10) = "Preventivi" Then 
E-3 Microsoft Excel Oggetti With Sheets("Preventivi") 
HÈ) Foglio 1 (Preventivi) .Range ("m6") = Sheets("clienti").Cells(ij, 2) 'Rag 
El) Foglio2 (Clienti) .Range ("m7") = Sheets("clienti").Cells(ij, 3) ' In 
EE) Foglio3 (Setup) .Range ("m8") = Sheetvs("clienti").Cells(j, 4) & " 
ES) Foglio4 (Archivio) * .-Range("b11") = Sheets("clienti").Cells(ij, 8) 'pa 
»-Range("z3") = Sheets("clienti").Cells(ij, 21) 'ri 
End With 
End If 
cliente.Hide 
End Sub 5 ca Dar 
Private Sub CommandButton2 Click() 
cliente.Hide 
End Sub 


Private Sub userform activate() 

Dim i As Long 

Select Case Sheets("clienti").Cel 

Case Empty 

i=2 

If Not (Sheets("clienti").Cells(2, 2) = Empty) Ih 
Do Until Sheets("clienti") .Cells(i, 1) = Empty 
ComboBox1l.AddItem (Sheetrs("cliienti”).Cells(i, 1). 
isit+l 

Loop 

End If 

Case Else 

With Sheets("clienti") 

cliente.ComboBox1.List = .Range(.Cells(2, 2), .Ce 


End With 
DA 
» 


naXibiafs @ | Riga 28, Cols 


End Select 
End Sub 
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L’Editor di VB visualizza tre finestre contenute in una finestra principale e ciascuna delle tre finestre 
visualizza importanti informazioni sul progetto VBA (un progetto è l'insieme di moduli e oggetti 
memorizzati in una cartella di lavoro). Ognuna delle tre finestre dell’Editor VB viene visualizzata di 
default nella posizione ancorata come mostrato in figura. Le tre finestre dell’Editor sono: 


v Gestione Progetti: Questa sotto finestra (Posiz. A) contiene un diagramma ad albero delle 
cartelle di lavoro aperte e degli oggetti Excel in esse contenute (oggetti, moduli, riferimenti, 
Form e così via). Si userà questa finestra per navigare fra i vari moduli e altri oggetti di un 
progetto VBA 


Y Finestra delle Proprietà: In questa finestra (Posiz. B) compare un elenco di tutte le proprietà 
dell'oggetto attualmente selezionato. La scheda “Alfabetico”, della finestra proprietà presenta 
un elenco ordinato alfabeticamente delle proprietà dell'oggetto selezionato. 


Y Finestra del Codice: La finestra del codice (Posiz. C) è quella in cui si può esaminare, modificare 
o creare ex-novo il codice sorgente VBA. 


7.1 Finestra Gestione Progetti 


La finestra “Gestione progetti” consente di visualizzare un elenco gerarchico di tutti gli elementi del 
progetto che sono contenuti nella cartella di lavoro, che includono fogli di lavoro, Forms e moduli. Per 
default questa finestra utilizza un sistema di visualizzazione definito “diagramma a albero”. Basta fare 
clic su uno dei segni + che si trovano alla sinistra di una voce del progetto per espandere l'elenco 
mostrandone la ramificazione. Una volta espanso il diagramma il segno + si trasforma in segno — e 
basta cliccare su quest’ultimo per far collassare la ramificazione e chiuderla. La finestra della Gestione 
progetti contiene altri due pulsanti: Visualizza 

Codice e Visualizza Oggetto evidenziati nella figura a fianco dal 
rettangolo rosso 


E}-@3 Microsoft Excel Oggetti Il pulsante Visualizza codice mostra il listato del codice del 
88) Foglio 1 (Preventivi) modulo nella finestra del Codice (Posiz. C) mentre il 
@) Foglio2 (Clienti) pulsante Visualizza oggetto mostra l'oggetto che corrisponde 
nata ) alla voce selezionata, può essere un foglio di calcolo o una 
8) Foglios (Listino) Form. Quando si lavora col codice sorgente di una macro nella 
€) ThisWorkbook sotto finestra Codice, si possono anche chiudere le finestre 
Eì-& Form Gestione progetti e Proprietà, per dare più spazio al codice in 


modo da vederne una parte maggiore. 


Si può chiudere quando si vuole una qualsiasi sotto finestra dell’Editor VB (Gestione progetti, Proprietà 
e Codice) con un clic sul pulsante di chiusura posto nel vertice superiore destro (la classica X) e per 
visualizzare una delle finestre si può fare clic sul relativo pulsante nella barra strumenti dell’Editor VB 
evidenziati dal rettangolo rosso nella figura sotto riportata 


KE File Modifica Visualizza Inserisci Formato Debug Esegui Strumenti Aggiunte Finestra 2 


M&E-Wd ES) > n a MGIERÀ @ | Riga 28, Col5 


Oppure tramite il percorso dal menù: Visualizza - Gestione progetti 
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7.2 Finestra delle Proprietà 


Tutti gli oggetti di Excel hanno delle proprietà che ne controllano l'aspetto e il comportamento, un 
foglio di lavoro ha la proprietà di essere visibile oppure no, un pulsante ha una proprietà per altezza e 
larghezza e così via. Per modificare l'aspetto e il comportamento di un oggetto dobbiamo cambiarne le 
proprietà, e lo possiamo fare selezionando un foglio di lavoro, un modulo o una Form nella 

finestra Gestione progetti e controllare le sue proprietà nella finestra delle proprietà. 


Proprietà - cliente La Finestra Proprietà contiene due schede: 

[cliente UserForm "| Alfabetico e Categoria. Nella scheda Alfabetico, le 
Alfabetico |per categoria | proprietà sono visualizzate in ordine alfabetico senza 
(Name) oz alcun riferimento alla categoria di appartenenza, 

[] aHoorFcocoa mentre nella scheda per Categoria, le proprietà sono 
HE 5300000128. disposte in ordine alfabetico all'interno di varie 
0 - fmBorderStyleNone . 

rar categorie. 
0 - fmCydeAllForms 
32000 Le proprietà riportano i valori assegnati agli oggetti 
True che definiscono l'aspetto e le funzionalità degli stessi, 
Tahoma a : ; - 
HEI 8300000128 solitamente questi valori possono essere letti oppure 
99 assegnati, in questo caso si dice che la proprietà è di 


lettura e scrittura, esistono anche proprietà di sola 
lettura, alle quali è possibile accedervi. Se la finestra non fosse visibile è possibile accedervi attraverso il 
percorso dal menu Visualizza - Finestra proprietà 


7.3 Finestra del Codice 


La modalità di visualizzazione di default del codice sorgente VBA è visualizza modulo intero, in cui tutto 
il codice sorgente di un modulo è visualizzato in una finestra di testo che permette lo scorrimento ed 
ogni macro in questa finestra è separata da una linea continua grigia. L’Editor di VB permette anche di 
vedere i contenuti di un modulo in modalità Visualizza routine attivabile dalle due 

icone presenti nel vertice inferiore sinistro della finestra del codice evidenziate 


Quando la finestra Codice è in modalità Routine, come si nota in 
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- 
|(generale) «| [tgichiak figura a lato si può vedere soltanto il codice sorgente di una 
|ublic m As Integer, posiz As Intey macro alla volta 
Sub nuovo() - 
If Left(ActiveSheet.Name, 6) = "Max" 


svuota doc è 


IVANO ZE nti") .Cells(2, 1) 

odalita Routine izione nessun clie . . 3 . . 

Fast. Sub % Per visualizzare una determinata routine nella finestra del 
< 


B:41 — date # codice in modalità Routine basta solo posizionare il cursore col 
P1$] — Sheets ("Serup") [81] -Vale mouse sulla routine e cliccare sull'icona relativa in figura, per 


bneets ("Setup = 99 di 
# tornare poi alla visualizzazione a modulo intero si deve cliccare 
#. sull'icona a fianco. Nella modalità a Modulo intero si può usare 
< l’elencoa dscesa delle procedure per passare rapidamente da 
è unamacroall'altra. 
ar 
7 
ef 
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8. IMenu' dell'editor di VBA 


Vediamo ora una panoramica dei comandi dei menù e della barra strumenti dell'editor di VB per fare 
una carrellata delle capacità dell'editor stesso. Nella linea sotto l'intestazione appare la barra con i 
menu: File, Modifica, Visualizza, Inserisci, Formato, Debug, Esegui, Strumenti, Aggiunte, Finestra? 


8.1 Il menuFile 


Il menu File come in tutte le applicazioni Windows, contiene i comandi relativi al salvataggio e 
all'apertura dei file. Nell'Editor VB, il menu file offre i comandi necessari per salvare le modifiche 
apportate ai progetti VBA e stampare il codice sorgente delle macro 


| File Modifica Visualizza Inserisci Formato Debug Esegui Strumenti Aggiunte Finestra 


Ogni menu è di tipo a tendina e si apre con un clic del mouse, mostrando una serie di comandi. 
Vediamo ora quali sono i comandi facendo una panoramica dei menu e della barra strumenti 
dell’Editor di VBA riassumendo i comandi ed elencando lo scopo di ciascuno. 


Salva: Salva il progetto VBA corrente su disco inclusi tutti i moduli e Form 
Importa file: Aggiunge un modulo, Form o classe al progetto esistente. 

Esporta file: Salva il modulo, Form o classe corrente in un file di formato testo 
Elimina: Elimina definitivamente dal progetto VBA il modulo o Form selezionato 
Stampa: Stampa un modulo o Form ai fini di documentazione 

Chiudi e torna a Excel: Chiude l’Editor di VB e ritorna ad Excel 


a A 


8.2 Il menu Modifica 


Il menù modifica contiene i comandi per manipolare il codice sorgente di una macro nella finestra del 
Codice e gli oggetti su un Form 


v Annulla: Annulla il comando più recente 

v Ripeti: Ripete il comando annullato per ultimo 

v Taglia: Elimina il testo o l'oggetto selezionato nel modulo o nella Form 

Copia: Copia il testo, o l'oggetto, selezionato che viene conservato negli appunti di Windows 

v Incolla: Incolla il testo, o l'oggetto, dagli appunti di Windows nel modulo o Form corrente 

v Cancella: Elimina il testo, o l'oggetto, selezionato dal modulo o Form 

vY Seleziona tutto: Seleziona tutto il testo di un modulo, o tutti gli oggetti di una Form 

v Trova: Permette di localizzare uno specifico testo in un modulo 

Trova successivo: Ripete l’ultima operazione Trova 

v. Sostituisci: Permette di localizzare uno specifico testo in un modulo e sostituirlo con un altro 

v. Aumenta rientro: Aumenta il rientro di una tabulazione 

v. Riduci rientro:Sposta a sinistra di una tabulazione il testo selezionato 

v. Elenca proprietà/metodi: Apre un elenco a discesa nella finestra proprietà-metodi del codice che 
indica tutte le proprietà e metodi dell'oggetto di cui si è appena digitato il nome. 

v. Elenca costanti: Apre un elenco a discesa che mostra le costanti valide della proprietà appena 


digitata preceduta da un segno di uguale = 
v. Informazioni Rapide: Apre una finestra di aiuto che mostra la sintassi corretta 
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Informazioni parametri: Apre una finestra di aiuto che mostra i parametri di una procedura, 
Completa parola: Permette all'editor di VB di completare la parola che si sta digitando 
Segnalibri: Apre un sotto menu di scelte per inserire, eliminare o saltare a un segnalibro 


8.3 Il menu Visualizza 


Il menu visualizza mette a disposizione i comandi per scegliere quali elementi dell'editor VB si vogliono 
vedere e come visualizzarli 


* fa A 


4, & 


LS 


Codice: Attiva la finestra del Codice che mostra il sorgente associato al modulo 
Oggetto: Visualizza l'oggetto attualmente selezionato in Gestione Progetti 
Definizione: Visualizza il codice sorgente della procedura o funzione 

Ultima posizione: Salta all'ultima posizione di un modulo dopo un precedente 
Visualizzatore oggetti: Apre il visualizzatore oggetti 

Finestra immediata: Visualizza la finestra immediata del debugger di VBA 

Finestra locali: Visualizza la finestra Locali del debugger di VBA 

Finestra controllo:Visualizza la finestra Controllo del debugger di VBA 

Stack chiamate: Visualizza lo stack delle chiamate della procedura o funzione VBA 
Gestione progetti: Visualizza la finestra Gestione Progetti 

Finestra proprietà: Visualizza la finestra delle proprietà 

Casella degli strumenti: Visualizza la casella degli strumenti per aggiungere controlli 
Ordine di tabulazione: Visualizza la finestra di dialogo Ordina tabulazioni 
Barre degli strumenti: Mostra un sotto menu per visualizzare o nascondere le diverse barre degli 
strumenti dell’Editor di VB 
Microsoft Excel: Per tornare ad Excel da cui è stato avviato l’Editor VB 


8.4 Il menu Formato 


I comandi del menù formato si usano per creare proprie finestre di dialogo personalizzate. Essi 
permettono di allineare gli oggetti su un Form, di variare la dimensione dei controlli in modo da 
adattarsi ai contenuti e di fare molte altre cose utili 


ma 


Allinea: Apre un sotto menù di comandi che permettono di allineare gli oggetti selezionati 
Rendi uguale: Apre un sotto menù che perme di portare gli oggetti alla medesima grandezza 
Adatta: Modifica contemporaneamente altezza e larghezza di un oggetto 

Adatta alla griglia: Modifica contemporaneamente altezza e larghezza di un oggetto 
Spaziatura orizzontale: Apre un sotto menu di comandi che permettono di regolare la spaziatura 
orizzontale degli oggetti selezionati. 

Spaziatura verticale: Apre un sotto menu che permette di regolare la spaziatura verticale 
Centra nel form: Apre un sotto menu di comandi che permettono di regolare la posizione degli 
oggetti selezionati centrandoli orizzontalmente o verticalmente nella Form 

Disponi pulsanti: Apre un sotto menu di comandi che permettono di disporre sul form i pulsanti 
di comando in una riga 

Raggruppa: Collega assieme in singoli gruppi più oggetti selezionati 

Annulla raggruppamento: Toglie il raggruppamento degli oggetti precedentemente raggruppati 
col comando raggruppa 

Ordina: Apre un sotto menu di comandi che permettono di cambiare l'ordine dall’alto-in-basso 
di oggetti sovrapposti su una Form. 
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8.5 Il menu Debug 


I comandi del menu Debug vengono usati quando si fa il collaudo delle macro, ovvero quando si 
procede al debugging delle stesse, che consiste in un processo atto a individuare gli errori nel 
programma 


Compila: Procede alla compilazione del progetto selezionato in gestione progetti 

Esegui istruzione: Esegue il codice sorgente un enunciato alla volta 

Esegui istruzione/routine: Permette di eseguire le istruzioni di una macro 

Esci da istruzione/routine: Esegue tutte le istruzioni rimanenti di una macro 

Esegui fino al cursore: Esegue tutti gli enunciati del codice fino alla posizione del cursore 

Aggiungi espressione di controllo: Permette di specificare variabili o espressioni che contengono 

valori che si vogliono esaminare mentre il codice sorgente viene eseguito 

v. Modifica espressione di controllo: Permette di modificare le specifiche delle variabili o 

espressioni di controllo create in precedenza con il comando Aggiungi espressione di controllo 

Controllo immediato: Visualizza il valore corrente di una data espressione di controllo 

v. Imposta/rimuovi punto di interruzione: Evidenzia e contraddistingue un punto del codice 
sorgente in cui si vuole che l'esecuzione si arresti 

v. Rimuovi punto di interruzione: Elimina tutti i punti di interruzione immessi in un modulo 

v. Imposta istruzione successiva: Permette di modificare il normale flusso di esecuzione del codice 
specificando la linea del codice sorgente che verrà eseguita al passo successivo 

v. Mostra istruzione successiva: Visualizza la linea del codice sorgente che verrà eseguita 

successivamente evidenziandola 


= LR 


LI 


8.6 Il menu Esegui 


I comandi del menu esegui permettono di avviare l'esecuzione di una macro, interromperla o 
riprendere l'esecuzione. 


v.. Esegui Sub/Userform: Con questo comando si esegue la macro in cui si trova il cursore di testo. 
Se il Form è attivo VBA esegue il Form 

v. Interrompi: Interrompe l'esecuzione del codice VBA e apre l’Editor VB in modalità /nterruzione 

v_ Ripristina: Annulla i valori di tutte le variabili a livello modulo e lo stack delle chiamate 

v. Esci da modalità progettazione: Attiva o disattiva la modalità progettazione di un progetto. 
Quando è attiva non viene eseguito nessun codice del progetto 


8.7 Il menu Inserisci 


Il menu inserisci permette di aggiungere vari oggetti (moduli, Form) al progetto 


Routine: Inserisce una nuova procedura Sub, Function o Property nel modulo corrente 
Userform: Inserisce una nuova Form al progetto 

Modulo: Aggiunge un nuovo modulo al progetto corrente. 

Modulo di classe: Aggiunge un nuovo modulo di classe al progetto corrente 

File: Permette di inserire in un modulo un file di testo che contiene codice sorgente VBA 


> & 
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8.8 Il menu Strumenti 


I comandi del menu strumenti non solo rendono possibile selezionare la macro da eseguire, ma 
consentono anche l’accesso a librerie di macro e controlli per i Form addizionali esterni oltre a quelli 
integrati nel VBA 


v_ Riferimenti: Visualizza la finestra di dialogo dei Riferimenti con cui si possono stabilire 
riferimenti a librerie di oggetti, di tipi o a altro progetto VBA 

v_ Controlli aggiuntivi: Visualizza la finestra di dialogo Controlli aggiuntivi che permette di 
personalizzare la barra strumenti casella strumenti che serve ad aggiungere controlli ai Form 
diversi da quelli integrati nel VBA 

v. Macro: Visualizza la finestra di dialogo Macro. Con cui si creano, eseguono, modificano o 
eliminano macro 

v Opzioni: Visualizza la finestra di dialogo Opzioni in cui si possono scegliere varie opzioni per 
l’Editor VB 

v. Proprietà: Visualizza la finestra di dialogo Proprietà progetto in cui si possono impostare varie 
proprietà del progetto VBA 

v_ Firmadigitale:Visualizza la finestra di dialogo Firma digitale che permette di vedere le 
informazioni correnti della firma digitale e di “firmare” il proprio progetto VBA 


L’Editor VB dispone di altri tre menu: Aggiunte, Finestra e Guida. 


Il menu Aggiunte contiene una sola voce "Gestione delle aggiunte". Questo comando apre la 
corrispondente finestra di dialogo Gestione delle aggiunte che può essere impiegata per aggiungere o 
eliminare programmi aggiuntivi (Add-In) di Visual Basic. 

Il menu Finestra consente di passare da un Form all'altro, portando in primo piano sul desktop quello 
su cui vogliamo lavorare 

Il menu Guida dà accesso alla guida on-line di Visual Basic For Applications che contiene istruzioni 
consultabili durante la programmazione. 


8.9 La Barra strumenti dell’editor di VBA 


La selezione di un pulsante di comando col mouse risulta in genere più comoda per l'utente rispetto 
alla scelta di un comando da menu. L’Editor VB presenta i comandi più importanti e più usati sotto 
forma di pulsanti (icone) in una barra strumenti. Per default l’Editor VB visualizza solo la barra 
strumenti Standard. 


uadkestts 


Oltre a questa l’Editor di VB dispone di altre tre barre strumenti: Modifica, Debug e Userform. La barra 
strumenti Modifica contiene vari pulsanti di comando utili per editare il testo nella finestra del codice. 
Si può controllare quali barre strumenti vengono visualizzate tramite il comando Visualizza - Barre 
strumenti e dato che per default l’Editor di VB non visualizza la barra strumenti Modifica, sarà 
necessario renderla visibile manualmente. 


Per visualizzare o nascondere una delle barre strumenti dell’Editor si procede così: Selezionare il 
comando Visualizza - Barre strumenti per aprire un sotto menu che elenca le varie barre strumenti 
dell’Editor. Fare clic sul nome della barra strumenti che si vuole visualizzare, per esempio se si vuole 
rendere visibile la barra strumenti Modifica, fare clic nel sotto menu su Modifica e l’Editor di VB 
renderà visibile la barra strumenti selezionata. Per default l’Editor di VB mostra la barra Strumenti 
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Standard ancorata in alto nella finestra dell’Editor. Una barra strumenti può anche essere 
resa flottante, ossia non ancorata ad un lato della finestra. In tal caso essa compare in una finestra 
dotata di bordi e titolo. 


iL 


ui 


[® 


Per ancorare o rendere flottante una barra strumenti nell'Editor di VB si usa la medesima tecnica usata 
per le barre strumenti di Excel, basta trascinare la barra strumenti nella posizione desiderata e poi 
rilasciare il pulsante del mouse. La barra strumenti Standard dell’Editor di VB contiene 18 pulsanti 
(icone) ognuno dei quali offre l’accesso rapido a un comando di menu con un semplice clic. | comandi 
della barra Strumenti Standard partendo dal lato sinistro della figura sopra riportata sono: 


v Visualizza: Passa all'applicazione dalla quale è stato avviato l’Editor, nel nostro caso Excel 
v Inserisci oggetto: Facendo clic sulla freccina in giù sulla destra viene visualizzato un elenco degli 
oggetti che si possono inserire nel progetto: 

Salva: Salva il progetto corrente 

Taglia: Taglia il testo o l'oggetto selezionato e lo trasferisce negli appunti di Windows 
Copia: Copia il testo o l'oggetto selezionato e lo trasferisce negli appunti di Windows 
Incolla: Incolla il testo o l'oggetto contenuto negli appunti nella finestra del Codice 

Trova: Apre la finestra di dialogo Trova per individuare la posizione di una specifica parola 
Annulla: Annulla l’ultimo comando immesso 

Ripeti: Ripete l’ultimo comando immesso 

Esegui: Esegue la procedura corrente o form 

Interrompi: Interrompe l'esecuzione del codice VBA 

Ripristina: Ripristina il codice VBA nello stato iniziale 

Modalità Progetto: Fa passare nella modalità Progetto del VBA 

Gestione Progetto: Apre la finestra Gestione Progetti 

Finestra Proprietà: Apre la finestra delle Proprietà 

Visualizzatore Oggetti: Apre la finestra di dialogo del Visualizzatore degli Oggetti 

Casella strumenti: Visualizza la barra strumenti Casella Strumenti 


LALA RARA 


Assistente di office: Visualizza l'assistente di Office e offre una guida 
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9. Il Debug in Visual Basic Editor 


Il Debug è un aspetto molto importante in programmazione e gli sviluppatori hanno bisogno di 
identificare e rettificare rapidamente gli errori durante la scrittura del codice. VBA fornisce numerosi 
strumenti di debug per risolvere i problemi nella fase di sviluppo, e oltre alla possibilità di aggiungere le 
routine di gestione degli errori, fornisce soluzioni rapide quando si manifestano gli errori durante 
l'esecuzione. 


9.1 Indentazione del codice 


Per poter facilitare la lettura e la comprensione del codice è buona cosa ricorrere all’indentazione del 
codice che consiste nel precedere le righe di codice con un certo numero di spazi e ha lo scopo di 
evidenziare i blocchi di codice per permettere di cogliere visivamente la struttura del programma, 
inoltre si deve indentare il codice mentre lo si sviluppa, non successivamente per renderlo “bello”. Il 
numero di spazi è sempre multiplo di un certo valore scelto come base (in genere 3 0 4) e 
normalmente si può definire il tasto Tab tramite il menu Strumenti — Opzioni dell’Editor di VBE, in modo 
che introduca quel numero di spazi 


| di 
Opzioni 


Editor | Formato editor | Generale | Ancoraggio | 
Impostazioni codice 
MW Controllo automatico sintassi ÎV Rientro automatico 
[T Dichiarazione di variabili obbligatoria 
Rientro tabulazione: | 4 
MW Elenco membri automatico 
MW Informazioni rapide automatiche 
W Descrizione dati automatica 


Impostazioni finestra 
MW Trascinamento della selezione 
W Visualizza modulo intero 

[W Separa routine 


Indentare il codice è un requisito non obbligatorio e viene spesso messo in secondo piano, tuttavia, è 
fondamentale per incrementare la leggibilità del codice, in particolare delle strutture di controllo come 
le condizioni o i loop allo scopo di separare più chiaramente le istruzioni e, in particolare, di 
rappresentare esplicitamente le relazioni di annidamento e viene considerata come una norma 
fondamentale di buona programmazione. 
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Esempio codice NON Indentato 


Private Sub UserForm_Activate() 
Dim elemento As String 
If ListBox1.ListCount >= 1 Then ListBox1.Clear 
ji=1 
Do Until Sheets("Archivio").Cells(1, i).Value = Empty 
With Sheets("Archivio") 
elemento = .Cells(1, i).Value 
End With 
ListBox1.Addltem elemento 
i=i+8 
Loop 
ListBox1.ListIndex = 0 
svuota_box 
End Sub 


Esempio codice Indentato 


Private Sub UserForm_Activate() 
Dim elemento As String 
If ListBox1.ListCount >= 1 Then ListBox1.Clear 
i=1 
Do Until Sheets("Archivio").Cells(1, i).Value = Empty 
With Sheets("Archivio") 
elemento = .Cells(1, i).Value 
End With 
ListBox1.Addltem elemento 
i=ij+8 
Loop 
ListBox1.ListIndex = 0 
svuota_box 
End Sub 


Per indentare il codice è possibile usare un Add-In che potete trovare a questo link. 


Non è ancora stata rilasciata una versione che supporti Office 64bit, per cui la versione 
Mi) 2013 non viene supportata, ma è possibile usare un indentatore on-line a questo Link 


9.2 Debug utilizzando una finestra di messaggio 


Uno dei metodi più elementari e spesso utilizzati durante la scrittura di codice è quello di usare una 
finestra di messaggio per controllare i valori mutevoli di una variabile (MsgBox). Generalmente si 
utilizza una finestra di messaggio immediatamente dopo la riga di codice in cui la variabile assume un 
valore, per verificare come la procedura viene eseguita con i valori delle variabili che cambiano 
dinamicamente. Per visualizzare la finestra di messaggio per ottenere il valore di una variabile si utilizza 
la sintassi: MsgBox NomeVariabile. Questa riga di codice verrà rimossa dopo aver terminato la verifica 


46 


Microsoft® 


for Applications 


del valore. Di seguito vediamo alcuni esempi che mostrano come utilizzare la funzione MsgBox per 
verificare i valori delle variabili che cambiano mentre viene eseguito il codice. 


Sub Prova() ‘Verifica dei valori delle variabili alla fine del Ciclo 
Dim I, tot As Integer 
i=0 
Do 
i=i+1 
MsgBox i Restituisce 1, 2, 3 
tot = tot+i 
Loop Untili>2 
MsgBox tot ‘restituisce 6 
End Sub 
Sub Proval() ‘Verifica dei valori delle variabili all'inizio del Ciclo 
Dim i, tot As Integer 
Fori=1T02 
Do Until tot > 3 
tot = tot+ 2 
MsgBox "i="&i ‘Restituisce i=1 
MsgBox "tot =" & tot ‘Restituisce tot=2 
Loop 
Next i 
MsgBox " Totale Complessivo =" & tot ‘restituisce 4 
End Sub 


9.3 Utilizzare i punti di interruzione 


È possibile inserire uno o più punti di interruzione su qualsiasi riga del codice, che permette di fermare 

temporaneamente l'esecuzione della macro in quel punto. A questo punto la macro è in modalità 
interruzione e consente 

(generale) di vedere il valore 

[Ga i Sub Prova1() corrente delle variabili 


= LÉ VBAProject (Cartel1) Dim i, tot As Integer spostando il cursore del 
1). Microsoft Excel Oggetti For i= 1 To 2 i 
i m i loro. Un 
i i) Foglio1 (Foglio1) Do Until tot > 3 E Li P doo 
ESE AME punto di interruzione 
MsgBox " i = ì può essere posizionato 
‘Restituisce i=1 


su qualsiasi riga del 


'Restituisce tot=2 codice, ma non sulle 
Loop righe che definiscono le 


Next i | variabili o nella sezione 
MsgBox " Finale tot = " & 
generale delle 


‘restituisce 4 
End Sub dichiarazioni. | punti di 


interruzione sono 
generalmente fissati a una riga di codice specifico in cui si immagina un errore e che vengono eliminati 
quando sono stati risolti gli errori. 


Progetto - VBAProject 
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9.4 Aggiungere o Cancellare un punto di interruzione 


Per aggiungere un punto di interruzione, si deve operare in questo modo: 


v Cliccare sul bordo sinistro della riga di codice in cui si desidera inserirlo 
v Cliccare sulla riga e premere F9 
v. Dal menu Debug - Imposta/rimuovi punto di interruzione 


Per cancellare un punto di interruzione, si deve ripetere l'operazione appena descritta, mentre se sono 
presenti vari punti di interruzione per rimuoverli tutti si deve premere Ctrl + Maiusc + F9 oppure dal 
menu Debug - Rimuovi punti di interruzione. 


9.5 Utilizzo della modalità Interruzione o Pausa 


La macro và in modalità interruzione quando si interrompe l'esecuzione del codice e si mette in pausa 
temporaneamente, oppure quando. 


Si incontra un punto di interruzione 

v Premendo i tasti Ctrl + Pausa durante l'esecuzione del codice 
Se si incontra una istruzione Stop nel codice 

Al verificarsi di un errore di sintassi o di un errore Run-Time. 


Interrompendo questa modalità è possibile visualizzare lo stato corrente della macro e controllare il 
valore delle variabili portando il cursore del mouse sulla variabile stessa. Una volta che il codice è in 
modalità interruzione, è possibile scegliere di continuare con l'esecuzione premendo il tasto F5, oppure 
cliccando su Ripristina dal menu Esegui. Al verificarsi di un errore, è possibile correggere l'errore e 
scegliere di continuare, oppure terminare l'esecuzione del codice e riavviare la macro. 


9.6 Esecuzione Passo - Passo del codice 


Per attivarla si deve fare clic su Esegui istruzione dal menu Debug o premere F8. In fase di 
progettazione, all'interno di una procedura, l'esecuzione del codice parte dall'inizio della macro ed 
entra in modalità pausa prima di eseguire la prima riga di codice. Questo è un modo per entrare in 
modalità pausa passando attraverso il codice che verrà eseguito una riga alla volta per poi passare alla 
riga successiva. 


9.7 Finestra Immediata 


Si può visualizzare la Finestra Immediata dal menu Visualizza oppure premere i tasti Ctrl + G. La finestra 
Immediata è una zona di debug primaria, ed è utilizzato per: 


Visualizzare i risultati delle istruzioni della macro 

vY Digitare un'istruzione o una riga di codice direttamente nella finestra e premere Invio per 
eseguirlo 

v Modificare il valore di una variabile durante l'esecuzione di una macro 
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Quando la macro è in modalità di pausa, è possibile assegnare un nuovo valore alla variabile nella 
finestra Immediata come si farebbe nella macro stessa, inoltre nella finestra Immediata è possibile 
valutare le dichiarazioni VBA o le espressioni che possono essere correlate o meno alla macro. Quando 
la macro è in modalità di interruzione, una dichiarazione VBA nella finestra immediata viene eseguita 
nel contesto di tale macro, per esempio se si digita MsgBox i, dove i è il nome di una variabile utilizzata 
nella macro, nella finestra Immediata, si otterrà il valore corrente della variabile i come se il comando 
fosse stato utilizzato all'interno della macro in esecuzione. 


Per restituire un valore, si deve precedere l'espressione con un punto interrogativo, per esempio, se 
digitiamo un'espressione come ? 100/2, viene riportato il valore della divisione dei due numeri, come è 
possibile vedere nell'immagine sotto riportata 


Immediata 


2100/2 
50 


Per visualizzare il valore di una varibile nella finestra IMmediata è possibile usare il 

comando Debug.Print che permette di vedere lo stato delle variabili e le decisioni che il nostro 
programma prende, in quanto con l'aggiunta di questa dichiarazione vengono stampate informazioni 
utili a correggere i nostri programmi nella finestra immediata. Sintassi : Debug.Print Expression 


Ad esempio, se nel foglio di Excel nella cella A1 abbiamo il testo “Prova debug.print” e ci posizioniamo 
su quella cella possiamo conoscerne il contenuto scrivendo nella finestra immediata il comando 
?activecell. Value che riporterà: 

Questo comando può essere usato in abbinamento alla 
punteggiatura in questo modo: ?activecell. Value, se inseriamo una 


= virgola alla fine del comando, alla prossima istruzione Debug.Print il 
risultato viene posto sulla stessa riga usando una tabulazione 

?activecell.Value predefinita, mentre se inseriamo ?activecell. Value; con un punto e 

Provwa:-debug.print virgola alla fine al prossimo comando il risultato viene inserito sulla 


stessa riga attaccato a quello precedente 


9.8 Finestra Locale 


Possiamo utilizzare la finestra Locale per vedere tutte le variabili dichiarate nella routine corrente e il 
loro tipo e valore corrente. La finestra Locale visualizzerà per le variabili locali dichiarate nella routine 
ub prova () corrente e le variabili dichiarate nella sezione 
Se e ER TIRENRE di dichiarazione moduli - il diplay è in 3 


For 41 =<:1L'TIo08 . . 
colonne: Espressione, Valore e Tipo. 
Next i 
End Sub 


Variabili locali. Si noti che la finestra Locale viene usata solo 
VBAProject.Modubo 1.prova quando la macro è in modalità Pausa. Il 


valore di una variabile locale può essere 


E3| Modulo1 Modulo1/Modulo1 ne î . 
Eli Variant'integer modificata nella finestra Locale facendo clic 


k Integer sulla colonna Valore 
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9.9 Finestra Espressioni di controllo 


Tramite questa finestra è possibile monitorare i valori delle variabili in modalità di interruzione, mentre 
la finestra Locale automaticamente tiene traccia di tutte le variabili dichiarate nella routine corrente, 
nella finestra di controllo è necessario specificare le variabili che si desidera tenere traccia. Nella 
finestra di controllo, indipendentemente da quella attuale, è possibile monitorare i valori delle variabili 
attraverso moduli e procedure. È possibile aggiungere manualmente le variabili e persino le espressioni 
alla finestra di controllo, quando è in modalità di interruzione. 


Per aggiungere una variabile alla finestra di controllo, si deve cliccare col destro del mouse sulla 
variabile e selezionare Aggiungi Espressione di Controllo dal menu del tasto destro del mouse, oppure 
posizionare il cursore sulla variabile e selezionare Aggiungi Espressione di Controllo dal menu Debug, e 
in entrambi i casi, verrà visualizzata una finestra di dialogo in cui compare il campo Espressione e verrà 
visualizzato il nome della variabile. 


È 
Aggiungi espressione di controllo 


Espressione: 


i nn 
Contesto ona) 
Routine: | Provai "| (olo) 
Modulo: Modulo 1 "| 


Progetto: VBAProject 


Tipo di espressione di controllo 
(@ Espressione di controllo 


| ©) Interrompi se il valore è vero 
-) Interrompi se il valore cambia 


Per modificare o eliminare il controllo, si deve selezionare la variabile nella finestra di controllo, fare 
clic col destro del mouse e selezionare Elimina Espressione di controllo 
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10. Cartelle di lavoro: Nozioni di base 


Quando si avvia Excel, viene creata di default una cartella di lavoro vuota e dopo aver eseguito le varie 
elaborazioni è possibile salvarla, oppure, se si dispone di una cartella di lavoro esistente da qualche 
parte nel computer è possibile aprirla come un documento di Excel. Nel linguaggio VBA, una cartella di 
lavoro è un oggetto che appartiene ad una collezione chiamata cartelle di lavoro e ogni cartella di 
lavoro è un oggetto di tipo Workbook. 


Per quanto riguarda le collezioni, ogni cartella di lavoro può essere identificata utilizzando le sue 
proprietà e per fare riferimento a una cartella di lavoro in programmazione, si deve accedere alle sue 
proprietà usando l'indice della cartella o il nome della cartella di lavoro stessa. Dopo aver fatto 
riferimento a una cartella di lavoro, se si desidera eseguire un'azione, è necessario ottenere un 
riferimento dichiarando una variabile e assegnarle una chiamata che dovrebbe essere fatta nel modo 
seguente. 


Dim cart As Workbook 
Set cart = Workbooks.Item 


Una cartella di lavoro è un oggetto di tipo Workbook e per creare una nuova cartella, si usa un metodo 
denominato Add. Sintassi Workbooks.Add(Template) As Workbook. Questo metodo richiede un solo 

argomento, ed è facoltativo, ciò significa che è possibile richiamare il metodo senza argomenti e senza 
parentesi, ecco un esempio: Workbooks.Add 


Quando il metodo viene richiamato in questo modo, viene creata una nuova cartella di lavoro e per 
fare questo, si deve tenere presente che il metodo Add () restituisce un oggetto Cartella di lavoro, 
pertanto, quando si crea una cartella, si ottiene anche un riferimento ad essa. Si ottiene tutto ciò 
assegnando la chiamata al metodo per la creazione di una cartella di lavoro ad una variabile, ecco un 
esempio. 


Dim cart As Workbook 
Set cart = Workbooks.Add 


Con questo codice è possibile quindi utilizzare la variabile per modificare le proprietà della cartella di 
lavoro. Dopo aver lavorato su una nuova cartella di lavoro, o dopo averla creata a livello di codice, se si 
desidera mantenere la cartella quando l'utente chiude Excel, è necessario salvarla e l'utente ha la 
possibilità di utilizzare la finestra di dialogo Salva. Quando l'utente avvia il salvataggio di un file, viene 
visualizzata la finestra di dialogo Salva con nome, che per default mostra il contenuto della cartella 
Documenti. 

Per scoprire quale sia la cartella di default, è possibile fare clic sul pulsante Opzioni di Excel e nella 
finestra di dialogo Opzioni di Excel, verificare il contenuto del file predefinito nella casella di testo 
Percorso. Per modificare a livello di programmazione la cartella predefinita, la classe Application è 
dotato di una proprietà denominata DefaultFilePath, pertanto, per specificare a livello di codice la 
cartella predefinita, si deve assegnare una stringa alla proprietà Application.DefaultFilePath 


Esempio: Application. DefaultFilePath = "C: \Prova\gestione preventivi" 


Quando questo codice viene eseguito, il file predefinito della finestra di dialogo Opzioni di Excel verrà 
cambiato. Per salvare visivamente una cartella di lavoro, è possibile fare clic sul pulsante Salva, oppure 
è anche possibile premere i tasti Ctr/ + S, mentre se il documento è già stato salvato, l'operazione 
verrebbe eseguita senza nessun consenso da parte dell'utente. Per poter avere la possibilità di salvare 
una cartella di lavoro a livello di programmazione, la classe cartella di lavoro è dotata di un metodo 
denominato Save, la sua sintassiè: Workbook.Save () 
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Questo metodo non richiede nessun argomento, se si clicca sul pulsante Salva o se si richiama il 
metodo Workbook.Save () su una cartella che non è stata ancora salvata, verrebbe richiesto di fornire 
un nome alla cartella di lavoro. Per salvare una cartella di lavoro in una posizione diversa, è possibile 
fare cliccare sul pulsante Salva con nome e selezionare una delle opzioni presentate, oppure è anche 
possibile premere F12. Come ausilio alla programmazione per il salvataggio di una cartella di lavoro, la 
classe cartella di lavoro è dotata di un metodo denominato Salva con nome. La sua sintassi è. 


Workbook.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, 
CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local) 


Il primo argomento è l'unico richiesto e contiene il nome o il percorso del file, pertanto, è possibile 
fornire solo il nome del file con estensione quando si richiama. Ecco un esempio. 


Dim cart As Workbook 
Set cart = Workbooks.Add cart.SaveAs "cart.xIsx" 


Se si fornisce solo il nome di un file quando si richiama questo metodo, la nuova cartella di lavoro 
sarebbe salvata nella directory corrente o nella cartella Documenti, mentre se si desidera, 
un'alternativa si deve fornire il percorso completo del file. 


10.1 Apertura di una cartella di lavoro 


Excel è un'interfaccia a documenti multipli (MDI), ciò significa che è possibile aprire molte cartelle di 
lavoro allo stesso tempo, per questo motivo, la possibilità di aprire una cartella di lavoro a livello di 
programmazione è gestita dalla raccolta cartelle di lavoro e a sostegno di questo, la classe è dotata di 
un metodo denominato Open, la sua sintassi è. 


Workbooks.Open( FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, 
lgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, 
CorruptLoad ) 


FileName è l'unico argomento obbligatorio e quando si richiama questo metodo, è necessario fornire il 
nome del file con la sua estensione, ecco un esempio. Workbooks.Open "cart.xIsx" 


10.2 Chiusura cartelle di lavoro 


Dopo aver usato una cartella di lavoro o per chiudere un documento non più necessario, la cartella di 
lavoro è dotata di un metodo denominato Close, la sua sintassi è. 


Sub Close (Optional ByVal SaveChanges As Boolean, Optional ByVal Filename As String, Optional ByVal 
RouteWorkbook As Boolean) 


Tutti e tre gli argomenti sono opzionali, il primo indica se si desidera salvare le modifiche, se sono state 
fatte, da quando è stata aperta la cartella. Se non è stato fatto nessun cambiamento da quando la 
cartella è stata creata o dall'ultima volta che è stata aperta, questo argomento non viene considerato. 
Se il primo argomento è impostato su True e la cartella ha delle modifiche che devono essere salvate, il 
secondo argomento specifica il nome del file in cui salvare la cartella, mentre invece il terzo argomento 
specifica se la cartella deve essere disponibile per l'utente successivo. 
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10.3 Accesso a una cartella di lavoro 


Per accedere a una cartella di lavoro, la classe cartella di lavoro è dotata di un metodo denominato 
Activate e la sua sintassi è. Workbook.Activate () Questo metodo non richiede alcun argomento e per 
richiamarlo, è possibile ottenere un riferimento alla cartella di lavoro che si desidera accedere, quindi si 
deve richiamare in questo modo. 


Dim cart As Workbook 

Set cart = Workbooks.Item (2) cart.Activate 
‘Oppure. 
Workbooks (2).Activate 


10.4 Visualizza molte cartelle di lavoro 


Se si crea o si aprono molte cartelle di lavoro, ognuna è rappresentata sulla barra delle applicazioni da 
un pulsante. Per fare riferimento a una cartella di lavoro, si deve accedere alle proprietà e passare 
l'indice o il nome del file della cartella di lavoro. Ecco un esempio: Workbooks.Item (2) 


Dopo aver fatto riferimento a una cartella di lavoro, se si desidera eseguire un'azione, è necessario 
ottenere un riferimento e per fare questo, si deve dichiarare una variabile cartella di lavoro e assegnare 
la chiamata ad essa. Ciò dovrebbe essere fatto nel modo seguente: 


Dim cart As Workbook 
Set cart = Workbooks.Item (2) 
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11. Metodi e Proprietà della cartella di lavoro 


L'oggetto WorkBook è il " figlio" dell'oggetto Application nella gerarchia degli oggetti di VBA, e 
rappresenta una singola cartella di lavoro di Excel all'interno dell'applicazione e si riferisce ad un 
insieme di tutte le cartelle di lavoro attualmente aperte in Excel. Mentre si lavora con cartelle di lavoro, 
si utilizzeranno Proprietà e Metodi dell'oggetto cartella di lavoro e per fare riferimento o restituire un 
oggetto Workbook (singola cartella di lavoro), possono essere utilizzate le seguenti proprietà. 


11.1 La Proprietà WorkBooks.ltem 


L' Item dell'oggetto Workbooks si riferisce ad una singola cartella di lavoro in una collezione e viene 
rappresentata con questa sintassi WorkbooksObject.Item (Index), dove Index è il nome della cartella 
o il numero di indice che sarebbe anche possibile omettere utilizzando una sintassi come: 


WorkbooksObject (WorkbookName) o WorkbooksObject (IndexNumber) 


Il numero di indice inizia da 1 per il primo foglio aperto o creato e si incrementa per ogni successiva 
cartella, incluse quelle nascoste. L'ultima cartella di lavoro viene restituita dalla proprietà Count in 
questo modo: Workbooks.Count. La Proprietà WorkbooksObject. Count, restituisce il numero di cartelle 
di lavoro: esempi 


Workbooks.Item ("VBA_1.xlIsm"). Close ‘Chiude la cartella "VBA_1.xlsm" 
'oppure 

Workbooks ("VBA_1.xIsm"). Close 

Workbooks(Workbooks.Count).Close SaveChanges:=True ‘Chiude la cartella dopo averla salvata 
‘Restituisce il nome della cartella con indice 2, cioè la 2° cartella di lavoro che si è aperta/creato 
MsgBox Workbooks(2).Name 

Workbooks(2).PrintPreview ‘Anteprima di stampa della cartella con indice 2 
MsgBox Workbooks(Workbooks.Count).Name ‘Restituisce il nome dell'ultima cartella aperta 


Sub workbookNames() ‘Restituire i nomi di tutte le cartelle di lavoro aperte: 
Dim i As Integer 

For i= 1 To Workbooks.Count 

msgbox Workbooks(i).Name 

Next i 

End Sub 


Sub workbookVariable() ‘Impostare una variabile in una cartella di lavoro: 
Dim wb As Workbook, i As Integer 

Set wb = Workbooks("Excel_1.xlsx") 

For i= 1 To wb.Worksheets.Count 

MsgBox wb.Worksheets(i).Name 

Next i 

End Sub 
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11.2 La Proprietà ActiveWorkBook 


Questa proprietà restituisce la cartella di lavoro attiva, cioè la cartella di lavoro nella finestra attiva con 
questa sintassi. ApplicationObject.ActiveWorkbook 


Esempio: MsgBox "il nome della cartella attiva è" & ActiveWorkbook.Name 


11.3 La Proprietà ThisWorkBook 


Questa proprietà viene utilizzata solo dall'interno dell'applicazione Excel e restituisce la cartella di 
lavoro in cui il codice viene eseguito. Sintassi ApplicationObject.ThisWorkbook 


Esempio: MsgBox "Il nome di questa cartella di lavoro è" & ThisWorkbook.Name 


Il più delle volte ActiveWorkbook è la stessa ThisWorkbook, ma potrebbe non essere sempre così, la 
cartella attiva può essere diversa da quella in cui si esegue il codice (vedi esempio di codice) 


Esempio: Aprire due file della cartella di lavoro in un'unica istanza (questo consentirà a tutte le cartelle 
di lavoro di accedere alla macro) 


Sub ActiveWorkbook_ThisWorkbook() 


MsgBox "Il nome della cartella attiva è " & ActiveWorkbook.Name ‘Restituisce "proval.xIsm" 
MsgBox " Il nome di questa cartella di lavoro è " & ThisWorkbook.Name 'attiva "prova2.xlIsm 
Workbooks("prova2.xlIsm").Activate 

MsgBox "Il nome della cartella attiva è " & ActiveWorkbook.Name ‘ritor. a prova2, 

MsgBox " Il nome di questa cartella di lavoro è " & ThisWorkbook.Name ‘ritorna a "proval.xlsm" 
Workbooks("prova1l.xlsm").Activate 'attiva "proval.xlsm" 
MsgBox "Active Workbook's name is " & ActiveWorkbook.Name ‘ritorna a "proval.xlsm" 
MsgBox "Il nome di questa cartella di lavoro è " & ThisWorkbook.Name 

End Sub 


11.4 Il Metodo WorkBooks.Open 


Si utilizza il Metodo Workbooks. Open per aprire una cartella di lavoro con questa sintassi. 


WorkbooksObject.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, 
lgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, 
CorruptLoad) 


L'argomento FileName è necessario mentre tutti gli altri argomenti sono facoltativi. L'argomento 
FileName è un valore di String che specifica il nome del file compresa l'estensione e il suo percorso. 
L'argomento ReadOnly impostato a True apre la cartella di lavoro in modalità di sola lettura e 
L'argomento password è un valore stringa che specifica la password necessaria per aprire una cartella 
di lavoro protetta da password, omettendo tale argomento verrà richiesto all'utente una password. 
L'argomento WriteResPassword è un valore stringa che specifica la password necessaria per aprire una 
cartella di lavoro in scrittura, (es. apertura di questo file senza la password renderà sola lettura), e 
omettendo tale argomento verrà richiesto all'utente una password. Si noti che quando una cartella di 
lavoro è aperta a livello di programmazione, le macro sono abilitate di default. 
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11.5 Il Metodo WorkBooks.Add 


Si utilizza il Metodo Workbooks.Add per creare una nuova cartella di lavoro, che diventa anche la 
cartella di lavoro usando questa sintassi WorkbooksObject.Add (modello) 


Usando questo metodo VBA restituisce un oggetto cartella di lavoro. E 'opzionale specificare il modello, 
in quanto questo argomento è un valore stringa che specifica il nome (e il percorso) di un file di Excel 
esistente, e in questo caso il file specificato funge da modello per la nuova cartella di lavoro che viene 
creata, il che significa che la nuova cartella avrà lo stesso contenuto, formattazione, macro e la 
personalizzazione del file esistente che è specificato. È inoltre possibile definire una costante 


Y xIWBATemplate Enumeration: Per questo argomento, e in questo caso la cartella di lavoro appena 
creata conterrà un singolo foglio del tipo che è specificato 

xIWBATChart: Creerà un foglio grafico 

xIWBATExcel4MacroSheet: Crea una versione di Excel 4 con macro 

xIWBATExcel4IntIMacroSheet: Crea una versione di Excel 4 con foglio macro internazionale 
xIWBATWorksheet: Crea un foglio di lavoro. 


<< & 


Tralasciando l'argomento modello si creerà una nuova cartella di lavoro di Excel di default con tre fogli 
bianchi, in cui il numero predefinito dei fogli può essere modificato/impostato utilizzando la 

proprietà Application.SheetsInNewWorkbook. Il nome predefinito di una nuova cartella di lavoro 
quando viene creata utilizzando il metodo Add, e l'argomento modello viene omesso, è denominato 
CartelN, dove la prima cartella di lavoro sarà Cartel1, seguita da Cartel2, e così via, quando l'argomento 
modello è la costante x/WBATWorksheet, le cartelle di lavoro sono denominate SheetN e la prima 
cartella di lavoro creata sarà Foglio1, seguita da Foglio2, e così via 


Sub WorkbooksAdd() 

Dim i As Integer, n As Integer 

i = InputBox("Inserire il numero di cartelle da creare") 
Forn=1Toi 

Workbooks.Add 

Next n 

End Sub 


11.6 Il Metodo Close 


Si utilizza il metodo Close dell'oggetto Workbooks per chiudere tutte le cartelle di lavoro aperte con 
questa sintassi. WorkbooksObject.Close. E inoltre possibile impostare la proprietà DisplayAlerts su 
False per non visualizzare alcuna richiesta o avviso alla chiusura di una cartella. Per chiudere tutte le 
cartelle di lavoro aperte, utilizzare la riga di codice Workbooks. Close, si può utilizzare il metodo Close 
dell'oggetto Workbook per chiudere una singola cartella di lavoro con questa sintassi 


WorkbookObject.Close (SaveChanges, filename, RouteWorkbook) 


Tutti gli argomenti sono opzionali da specificare e tralasciando l'argomento SaveChanges verrà 
richiesto all'utente se salvare le modifiche, nel caso in cui siano state fatte, alla cartella di lavoro dopo 
l’ultimo salvataggio. Impostando l'argomento SaveChanges a True si salveranno tutte le modifiche 
apportate alla cartella di lavoro, e se impostato su False, la cartella di lavoro si chiude senza salvare le 
modifiche apportate e in entrambe le impostazioni la cartella di lavoro si chiude senza visualizzare 
alcuna richiesta per salvare le modifiche. 
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L'argomento filename dovrebbe essere utilizzato per specificare un nome di file per chiudere una 
cartella di lavoro che ancora non ha un nome di file associato, cioè una nuova cartella di lavoro, 
altrimenti con l'omissione di questo argomento si richiederà all'utente di specificare il nome del file 
prima di chiuderlo. L'argomento nome del file può essere utilizzato come opzione se si desidera salvare 
una cartella di lavoro esistente, cioè che ha già un nome associato, con un nuovo nome di file. 
L'argomento RouteWorkbook impostato a True consente di instradare o inviare al destinatario, se è 
presente una lista di distribuzione. Esempi di utilizzo di questo metodo: 


ActiveWorkbook.Close SaveChanges: = True ‘salva e chiude la cartella 
Workbooks ("prova.xIsx"). Close SaveChanges: = True ‘salva e chiude prova.xlsx 
'salva come file di Excel 97, formato 2003 utilizzando FileFormat 

ActiveWorkbook.SaveAs fileName:=ActiveWorkbook.Name, FileFormat:=xlExcel8 

'salvare con estensione xlsx (2007) utilizzando FileFormat 

ActiveWorkbook.SaveAs fileName:=ActiveWorkbook.Name, FileFormat:=xlOpenXMLWorkbook 
'salvare la nuova cartella come xIsm, con attivazione macro, utilizzando FileFormat 
ActiveWorkbook.SaveAs fileName:="NewWorkbookSaved.xlsm", 
FileFormat:=xlIOpenXMLWorkbookMacroEnabled 

'salva nuova cartella, omettendo il formato file, verrà salvato nel formato predefinito della ver. di Excel 
ActiveWorkbook.SaveAs fileName:=ActiveWorkbook.Name 


11.7 Il Metodo WorkBook.SaveCopyAs 


Si utilizza il Metodo Workbook.SaveCopyAs per salvare una copia della cartella di lavoro e non modifica 
la cartella di lavoro aperta con questa sintassi WorkbookObject.SaveCopyAs (filename) 


L'argomento filename è facoltativo e viene utilizzato per specificare il nome del file con cui viene 
memorizzata la copia della cartella di lavoro. Il metodo Workbook.SaveCopyAs permette di salvare con 
lo stesso formato di file, cioè la cartella di lavoro e la sua copia devono avere lo stesso formato di file, 
altrimenti durante l'apertura della copia salvata otterrete un messaggio - Il file che si sta cercando di 
aprire è in un formato diverso da quello specificato dall'estensione del file ... " ed è possibile che il file 
non possa venire aperto. 


Esempio: Salvare una copia della cartella di lavoro specificata con Workbook.SaveCopyAs 


Sub WorkbookSaveCopyAs() 


Workbooks.Open "C:\Documenti\Test\prova_3.xlsx" 'Aprire una cartella di lavoro specificata 
MsgBox ActiveWorkbook.Name 'la cartella aperta diventa la cartella attiva 
ActiveWorkbook.SaveCopyAs "C:\Documenti\Test\Copia_di_prova3.xlsx" 

MsgBox ActiveWorkbook.Name 'la cartella aperta rimane la cartella attiva 
ActiveWorkbook.Close 'chiudere la cartella di lavoro aperta 

End Sub 


11.8 Il Metodo WorkBook.Save 


Si utilizza il metodo Workbook.Save per salvare una cartella di lavoro. Sintassi WorkbookObject.Save. 
Esempio: Workbooks ("prova_1.xIsm"). Save. Si utilizza l'argomento SaveChanges del metodo Close 
dell'oggetto Workbook, per salvare la cartella prima della chiusura. 


Esempio: Workbooks(Workbooks.Count).Close SaveChanges:=True 
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Si utilizza il metodo Workbook.SaveAs per salvare le modifiche della cartella di lavoro in un file 
separato con questa sintassi. 


WorkbookObject.SaveAs (FileName, FileFormat, password, WriteResPassword, 
ReadOnlyRecommendedì, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, 
TextVisualLayout, locale). 


Tutti gli argomenti sono opzionali, vediamo solo alcuni di loro. L'argomento FileName è un valore di 
tipo String che specifica il nome del file compresa l'estensione e il suo percorso, omettendo il percorso 
il file verrà salvato nella directory corrente, mentre FileFormat specifica il formato del file da 

salvare, il formato predefinito è la versione corrente di Excel, mentre per un file esistente 
l'impostazione predefinita è il formato del file che era specificato. Si ricorda che in Excel 2007-2010 
durante l'utilizzo SaveAs, è necessario specificare il parametro FileFormat per salvare un nome di file 
con estensione XIsm se la cartella di lavoro in fase di salvataggio non è un file XIsm, vale a dire: 
FileFormat: = x|OpenXMLWorkbookMacroEnabled 


È possibile specificare una password case-sensitive fino a 15 caratteri per l'apertura del file, utilizzando 
l'argomento password specificando una password per aprire un file, se non si inserisce la password si 
aprirà in sola lettura utilizzando l'argomento WriteResPassword per specificare la password. 


Sub workbookSaveAs1() 
'salvare la cartella di lavoro con indice 2 e con un nuovo nome e formato del file. 
Workbooks(2).SaveAs "Workbook_cambiato.xIsm" 


End Sub 
Sub workbookSaveAs2() ‘ Salvataggio di una nuova cartella di lavoro: 
Workbooks.Add ‘aggiungere una nuova cartella di lavoro 


'salvare la nuova cartella di lavoro, che diventa la cartella di lavoro attiva, protetta da password 
ActiveWorkbook.SaveAs fileName:="Nuova_cart.xIsx", Password:="abc123" 

'salvare la nuova cartella di lavoro come un file xIsm con password di protezione 

ActiveWorkbook.SaveAs fileName:="Nuova_cart.xlsm", FileFormat:=xIOpenXMLWorkbookMacroEnabled, 
WriteResPassword:="abc123" 

End Sub 


Si utilizza la proprietà Workbook.Saved per determinare se sono state apportate modifiche alla cartella 
dopo l’ultimo salvataggio con questa sintassi WorkbookObject .Saved che restituisce un valore 
booleano, dove True indica che la cartella non è stata modificata dopo l'ultimo salvataggio. Impostare 
questa proprietà su True prima di chiudere una cartella in cui sono state apportate modifiche non 
chiederà di salvare la cartella e non verranno salvate le modifiche. 


11.9 Il Metodo WorkBook.Activate 


Si utilizza il metodo Workbook.Activate per attivare una cartella di lavoro e se la cartella di lavoro 
dispone di più finestre, il metodo attiva la prima finestra. Sintassi WorkbookObject.Activate 
Esempio: Workbooks ("prova5.xlsx"). Activate 


11.10 Il Metodo WorkBook.PrintPreview 


Si utilizza il Metodo Workbook.PrintPreview per visualizzare un'anteprima di come verrà stampata la 
cartella con questa sintassi WorkbookObject.PrintPreview (EnableChanges). E' facoltativo specificare 
l'argomento EnableChanges, che accetta un valore booleano (il valore predefinito è True), per 
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consentire o non consentire all'utente di modificare le opzioni di impostazione della pagina (es. 
orientamento della pagina) disponibili in anteprima di stampa. 


Sub PrintPreview() ‘Utilizzo di PrintPreview 

'Anteprima di stampa impedendo all'utente di cambiare le ‘impostazione della pagina 
Workbooks("prova5.xlsx").PrintPreview EnableChanges:=False 

‘anteprima di stampa permettendo all'utente di cambiare le ‘impostazioni di ‘pagina 
Workbooks("provaS.xlsx").Worksheets("Foglio3").PrintPreview EnableChanges:=True 
End Sub 


11.11 Il Metodo WorkBook.SendMail 


Molte persone utilizzano Outlook come client per la posta elettronica, è possibile automatizzare 
Outlook, consentendo maggiori funzionalità di inviare e-mail, lavorando con gli oggetti di Outlook 
utilizzando VBA in Excel. L'automazione è un processo mediante il quale una applicazione comunica o 
controlla con un'altra applicazione e un'opzione per inviare e-mail da Excel è quella di utilizzare il 
metodo Workbook.SendMailin cui si utilizza il sistema di posta installato per inviare una cartella di 
lavoro. Sintassi. WorkbookObject.SendMail(Recipients, Subject, ReturnReceipt)) 


L'argomento Recipients è necessario per specificare un singolo destinatario o più destinatari come 
testo o un array di stringhe di testo, rispettivamente e l'argomento Subject è facoltativo e viene 
utilizzato per specificare l'oggetto della mail. Se si omette questo argomento di default verrà usato il 
nome della cartella di lavoro come oggetto. L'argomento ReturnReceipt è facoltativo, se viene usato si 
specifica il suo valore, che può essere True o False e indica la richiesta di richiedere una ricevuta di 
ritorno, il valore predefinito è False. Per inserire il nome del destinatario come testo: 

Esempio: ActiveWorkbook.SendMail Recipients:="nome_destinatario" 


Sub inviaM_2() ‘Inviare cartella di lavoro, specificando più destinatari. 
ThisWorkbook.SendMail Array("Gino Primo", "Beppe Secondo") 'più destinatari 
ThisWorkbook.SendMail Array(" info@gino.com", " info@beppe.com") ‘più indirizzi e-mail 
End Sub 


Sub inviaM_1() ‘Inviare cartella, specificando il nome del destinatario o indirizzo email 
Workbooks.Open ("C:\Documents\Test1\prova1l.xlsx") 

‘specificare il nome del destinatario come testo 

ActiveWorkbook.SendMail Recipients:="Gino Primo", Subject:="Ciao", ReturnReceipt:=True 
'specifica indirizzo e-mail di destinazione 

ActiveWorkbook.SendMail Recipients:="info@gino.com", Subject:="Ciao", ReturnReceipt:=True 
End Sub 


Sub inviaM_4() ‘Inviare una cartella, specificando il destinatario in una cella del foglio di lavoro 
Dim strRec As String 

strRec = ThisWorkbook.Sheets("Foglio1").Range("A14").Value 'A14 contiene: info@gino.com 
'l’oggetto apparirà come "Si prega di controllare 10/08/2014 10:43:06 " 
ActiveWorkbook.SendMail Recipients:=strRec, Subject:="Si prega di controllare " & Format(Now, 
"dd/mm/yyyy hh:mm:ss AMPM") 

End Sub 
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11.12 Il Metodo WorkBook.ActiveSheet 


Questa proprietà restituisce la scheda attualmente attiva in una cartella di lavoro e si usa con questa 
sintassi. WorkbookObject.ActiveSheet . Se appaiono più finestre per una cartella di lavoro, ActiveSheet 
potrebbe essere diversa per ogni finestra, se non c'è un foglio attivo, questa proprietà restituisce 
Nothing. Utilizzare il metodo Activate dell'oggetto foglio di lavoro per attivarne una, cioè attivare un 
foglio. Per esempio ActiveWorkbook.Sheets ("Foglio3"). Activate attiverà il foglio denominato "Foglio3" 
nella cartella di lavoro attiva, il cui nome verrà visualizzato da 

MsgBox ActiveWorkbook.ActiveSheet.Name 


11.13 La Proprietà WorkBook.Name 


Questa proprietà restituisce il nome di una cartella di lavoro. Sintassi WorkbookObject.Name ed è di 
sola lettura e non è possibile modificare il nome della cartella di lavoro. È tuttavia possibile utilizzare il 
metodo Workbook.SaveAs per salvare una cartella di lavoro esistente (in un nuovo file) con un nuovo 
nome o salvare una nuova cartella di lavoro con nome. 


Sub WorkbookName () ‘restituire i nomi di tutte le cartelle di lavoro aperte 
Dim i As Integer, conta As Integer 

count = Workbooks.Count 'restituisce il numero delle cartelle di lavoro 
Fori=1 To count 'Restituisce i nomi di tutte le cartelle 

MsgBox Workbooks(i).Name 

Nexti 

End Sub 


11.14 La Proprietà WorkBook.ActiveChart 


Questa proprietà restituisce il grafico attualmente attivo, che può essere un foglio grafico o un grafico 
incorporato. Sintassi. WorkbookObject.ActiveChart. Se non c'è un grafico attivo, questa proprietà 
restituisce Nothing e si utilizza il metodo Activate del’oggetto Chart o dell'oggetto ChartObject per 
attivare rispettivamente un foglio grafico o un grafico incorporato, tenendo presente che un foglio 
grafico è attivo se selezionato dall'utente o attivato utilizzando il metodo Activate. Vedi esempio sotto 
riportato 


Esempio: Illustrare proprietà ActiveChart e metodo Activate. 


Sub attiva_graf() 

ActiveWorkbook.Sheets("Chart1").activate 'Attivare il foglio grafico "Chart1" 
ActiveWorkbook.Sheets("Foglio2").ChartObjects("Chart 13").activate ‘attivare il grafico incorporato 
MsgBox ActiveWorkbook.ActiveChart.Name 

With ActiveWorkbook.ActiveChart 'Aggiungere un titolo al grafico attivo 
.HasTitle = True 

.ChartTitle.Text = "Ems_Grafico1" 

End With 

MsgBox ActiveWorkbook.ActiveChart.ChartTitle.Text ‘Restituisce il titolo del grafico attivo 

End Sub 
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11.15 La Proprietà WorkBook.FileFormat 


Restituisce il formato del file della cartella di lavoro. Sintassi WorkbookObject.FileFormat. E’ di sola 
lettura, inoltre è possibile specificare o impostare il formato di file durante il salvataggio di una cartella 
di lavoro esistente o nuova utilizzando il metodo Workbook.SaveAs (discusso sopra). 


11.16 La Proprietà WorkBook.Path 


Restituisce il percorso (stringa) completa della cartella di lavoro Sintassi WorkbookObject.Path 


11.17 La Proprietà WorkBook.Password 


Si utilizza questa proprietà per impostare o restituire una password per l'apertura di una cartella di 
lavoro e si tratta di una proprietà di lettura/scrittura. Sintassi WorkbookObject.Password. Vedere 
l'esempio sottostante che illustra come impostare una password per aprire una cartella di lavoro, 
modificare e cancellare una password esistente. 


61 


Microsoft® 


for Applications 


12. Gli Eventi della cartella di lavoro o ThisWorkBook 


Per funzionare appropriatamente, la maggior parte dei programmi di Excel, VBA modifica in qualche 
modo l’ambiente dell’applicazione stessa, queste modifiche possono comportare l'aggiunta di comandi 
di menu, la visualizzazione di barre degli strumenti o l'impostazione di opzioni. Nella maggior parte dei 
casi, tutti questi cambiamenti devono essere apportati in Excel prima che l'utente avvii il programma di 
VBA, in modo che i comandi di menu e le barre degli strumenti siano disponibili fin dall’inizio. 


Un programma di VBA non dovrebbe obbligare l'utente ad aggiungere menu e barre degli strumenti e a 
modificare le impostazioni delle opzioni, pertanto dobbiamo fare in modo che questi cambiamenti si 
verifichino automaticamente all'avvio usando una routine di gestione dell'evento Open della cartella di 
lavoro. L'evento Open viene generato quando viene aperta una cartella di lavoro e il codice di una 
routine Open, viene eseguito ogni volta che la cartella di lavoro viene aperta e rappresenta uno 
strumento ideale per impostare le eventuali condizioni speciali necessarie per la cartella stessa. Per 
poter accedere agli eventi della cartella si deve agire in questo modo: 


Progetto - VBAProject 


Private S Workbook _Open( 


ì 


- 8 vBAProject (Cartel1) End Sub 
=. 4 Microsoft Excel Oggetti 
ES) Foglioi (Foglio) 
ii) Foglio? (Foglio2) 
E) Foglio3 (Foglio3) 
$) ThisWorkbook 


Selezionare la voce 7nisWorkbook nella finestra del progetto, indicato dalla freccia rossa, per accedere 
al modulo di classe della cartella di lavoro (Workbook) di seguito selezionare Workbook nella casella a 
discesa sopra la finestra del codice, indicata dalla freccia blu e nella casella a fianco, indicata 

dalla freccia verde compariranno i vari eventi per l'oggetto. Di seguito riportiamo gli eventi principali 
associati all'oggetto WorkBook: 


12.1 Private Sub WorkBook_Open 


Questo evento può innescare una procedura quando si apre la cartella di lavoro 


Private Sub Workbook_Open() 
MsgBox "Buongiorno " & Environ("UserName") 
End Sub 


Private Sub Workbook_Open() 
MsgBox “Benvenuto” 
End Sub 


Private Sub Workbook_Open() 


Sheets("Foglio3").Activate 
End Sub 
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Si consiglia di impostare il livello di protezione macro sul livello medio, in modo che le macro 
Ma) non vengano attivate senza l'autorizzazione dell'utente, e quando si apre una cartella di 
==. lavoro proveniente da terzi è meglio aprire il file disattivando le macro per verificare che non 
contengano procedure che svolgono azioni indesiderate. 


12.2 Private Sub WorkBook_Deactivate 


Questo evento viene attivato quando si seleziona un'altra cartella di lavoro. 


Private Sub Workbook_Deactivate() 
Application.DisplayFormulaBar = True ‘attiva la barra della formula 
End Sub 


Private Sub Workbook_Deactivate() 


MsgBox "Arrivederci" 
End Sub 


12.3 Private Sub WorkBook_Activate 


Questo evento viene innescato quando viene attivata la cartella di lavoro. 


Private Sub Workbook_Activate() 
Userform1.Show ‘mostra la userform1 
End Sub 


Private Sub Workbook_Activate() 
Application.DisplayFormulaBar = False ‘nascondere la barra della formula 
End Sub 


Private Sub Workbook_Activate() 
MsgBox "Benvenuto” 
End Sub 


12.4 Private Sub WorkBook_BeforeClose 


Questo evento viene generato prima di chiudere la cartella di lavoro, che si chiude solo quando 
l'evento è terminato. Il parametro Cancel impedisce la chiusura del file. 


Private Sub Workbook_BeforeClose(Cancel As Boolean) 
If MsgBox("Vuoi veramente chiudere la cartella di lavoro?", 36, "Conferma") = vbNo Then 
Cancel = True 
End If 
End Sub 
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12.5 Private Sub WorkBook_BeforePrint 


Questo evento si verifica prima della stampa che inizia solo dopo questa procedura, il parametro 
Cancel blocca l'esecuzione della macro 


Private Sub Workbook_BeforePrint(Cancel As Boolean) 
Cancel = false 
Worksheets("Foglio1").PageSetup.RightFooter = "Produced by " & myname 


End Sub 


12.6 Private Sub WorkBook_BeforeSave 


Il parametro SaveAsUI restituisce TRUE se la casella "Salva con nome" verrà visualizzata, se si specifica il 
parametro Cancel = True verrà bloccata l'operazione di salvataggio 


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 


MsgBox "Arrivederci cartella salvata con successo" 
End Sub 


12.7 Private Sub WorkBook_RowsetComplete 


Si verifica quando l'utente esamina il recordset o chiama il set di righe per un oggetto tabella pivot (da 
Excel2007). Il parametro Description restituisce una breve descrizione dell'evento e il parametro Sheet 
restituisce il nome del foglio che contiene il Recordset creato. 


12.8 Private Sub WorkBook_NewSheet 


Questo evento viene attivato quando un nuovo foglio viene inserito nella cartella di lavoro, il 
parametro Sh è il foglio di lavoro creato 


Private Sub Workbook_NewSheet(ByVal Sh As Object) 
MsgBox Sh.Name & " :" & Sh.Index ‘visualizza il nome e l'indice del nuovo foglio 


End Sub 
Private Sub Workbook_NewSheet(ByVal Sh as Object) 


Sh.Move After:= Sheets(Sheets.Count) ‘sposta nuovi fogli alla fine del lavoro 
End Sub 


12.9 Private Sub WorkBook_WindowResize 


Questo evento si verifica quando si ridimensiona la finestra che contiene la cartella di lavoro e il 
parametro Wn corrisponde alla finestra. 


Private Sub Workbook_WindowResize(ByVal Wn As Window) 
Wn.WindowState = xlMinimized ‘parcheggia la finestra se viene ridimensionata 


End Sub 
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12.10 Private Sub WorkBook_WindowActivate 


Questo evento si verifica quando si attiva la finestra che contiene la cartella di lavoro e il parametro Wn 
corrisponde alla finestra attiva 


Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window) 
Wn.WindowState = xlMaximized 
End Sub 


Private Sub Workbook_WindowActivate(ByVal Wn As Window) 


Msgbox "Questa cartella è attiva" 
End Sub 


12.11 Private Sub WorkBook_WindowDeactivate 


Questo evento si verifica quando si disattiva la finestra che contiene la cartella di lavoro per attivare 
un'altra finestra di Excel e il parametro Wn corrisponde alla finestra disabilitata. 


Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) 
MsgBox "Disattivato" 
End Sub 


Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) 


MsgBox “Hai disattivato “ & Wn.Caption 
End Sub 


12.12 Private Sub WorkBook_AddiInstall 


Questo evento viene utilizzato nei componenti aggiuntivi (XLA) e viene attivato durante l'installazione 
del componente aggiuntivo contenuto nella procedura evento. 


Private Sub Workbook_AddinInstall() 
With Application.Commandbars("Standard").Controls.Add ‘aggiunge un controllo alla barra 
.Caption = "Aggiungi Voci al menu" 
.OnAction = "'pippo11.xls'!Amacro" 
End With 
End Sub 


12.13 Private Sub WorkBook_AddinUninstall 


Questo evento viene utilizzato nei Componenti aggiuntivi e viene attivata quando il componente 
aggiuntivo viene disinstallato. 


Private Sub Workbook_AddinUninstall() 


Run "DeleteMenu" 
End Sub 
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12.14 Private Sub WorkBook_BeforeXmlExport 


Questo evento si attiva quando Excel salva o esporta i dati XML da questa cartella di lavoro specifica, il 
parametro Map rappresenta la tabella xml di mappatura utilizzata per l'esportazione e il parametro Url 
restituisce il percorso completo del file xml che verrà utilizzato per l'esportazione. Si specifica Cancel = 
True per impedire l'esportazione. 


Private Sub Workbook_BeforeXmlExport(ByVal Map As XmlIMap, ByVal Url As String, _ 

Cancel As Boolean) 
If (Map.IsExportable) Then 

If MsgBox("Microsoft Excel è pronto" & " per esportare in XML da " & "Map.Name" & "." & vbCrLf & _ 
" Vuoi continuare?", vbYesNo + vbQuestion, "Processo di esportazione in XML") = 7 Then Cancel = True 
End If 
End Sub 


12.15 Private Sub WorkBook_AfterXmlExport 


Questo evento viene attivato dopo l'esportazione dei dati in un file xml (da Excel2003), il parametro 
Map rappresenta la tabella xml di mappatura utilizzata per l'esportazione il parametro URL restituisce il 
percorso completo del file xml salvato durante l'esportazione, mentre invece il parametro Result 
restituisce il risultato dell'esportazione che può essere: 


v.0(xIXmlExportSuccess): L'esportazione è stata eseguita correttamente 
v. 1(xIXmlExportValidationFailed): L’esportazione non è riuscita 


Private Sub Workbook_AfterXmlExport(ByVal Map As XmlIMap, ByVal Url As String, ByVal Result As 
XIXmlExportResult) 
MsgBox Map.Name & vbCrLf & _ 
Url & vbCrLf & _ 
Result 
End Sub 


12.16 Private Sub WorkBook_BeforeXmlImport 


Questo evento si attiva quando si importano dei dati da un file XML nel foglio di lavoro. Il parametro 
Map rappresenta i dati di mapping che importano il file XML e il parametro URL restituisce il percorso 
completo del file XML importato. Il parametro /sRefresh identifica se l'importazione è di una nuova 
origine dati o se è un aggiornamento esistente nel foglio. Se viene restituito True è un aggiornamento, 
si specifica Cancel = True per impedire l'importazione. 


Private Sub Workbook_BeforeXmlImport(ByVal Map As XmlMap, ByVal Url As String, ByVal IsRefresh As 
Boolean, Cancel As Boolean) 

Debug.Print "Verifica prima di importare", Map, Url, IsRefresh, Cancel 

End Sub 
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12.17 Private Sub WorkBook_AfterXmlImport 


Questo evento viene attivato dopo l'inserimento o l'aggiornamento dei dati XML nel foglio e il 
parametro Map rappresenta la tabella xml di mappatura derivante dall'importazione. Il parametro 
IsRefresh identifica l'importazione di nuova origine dati o se si sta aggiornando un foglio esistente. 
Viene restituito True se si tratta di un aggiornamento. Il parametro result restituisce il risultato 
dell'importazione, che può essere: 


v_ 0 (xlIXmIImportSuccess): L'importazione è riuscita 

Y. 1(xlIXmIImportElementsTruncated): Il contenuto del file xml è stato troncato durante 
l'importazione perché è troppo grande per il foglio di lavoro. 

v 2 (xlXmIImportValidationFailed): L'importazione non è riuscita 


Private Sub Workbook_AfterXmlImport(ByVal Map As XmlMap, ByVal IsRefresh As Boolean, _ 
ByVal Result As XIXmIImportResult) 
MsgBox IsRefresh & vbCrLf & _ 
Map.Name & vbCrLf & _ 
Result 
End Sub 


12.18 Private Sub WorkBook_PivotTableOpenConnection 


L'evento è attivato quando una tabella pivot si connette a un'origine dati e il parametro Target 
corrisponde alla tabella 


Private Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable) 
MsgBox "La connessione alla tabella Pivot è stata aperta" 
End Sub 


12.19 Private Sub WorkBook_PivotTableCloseConnection 


L'evento è attivato quando una tabella pivot è scollegata dalla sorgente dati e il parametro Target 
corrisponde alla tabella offline. 


12.20 Private Sub WorkBook_SheetCalculate 


Questo evento viene attivato quando si esegue il ricalcolo (formule di convalida o di aggiornamento) in 
uno dei fogli della cartella di lavoro. L'evento si verifica dopo Worksheet_Calculate e il parametro Sh 
corrisponde al foglio che contiene la formula. 
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12.21 Private Sub WorkBook_SheetActivate 


Identifica l'attivazione di un foglio nella cartella di lavoro e il parametro Sh corrisponde al foglio 
selezionato 


Private Sub Workbook_SheetActivate(ByVal Sh As Object) 
MsgBox Sh.Name ‘restituisce il nome del foglio selezionato. 
End Sub 


12.22 Private Sub WorkBook_Sync 


Viene generato quando la copia in locale di un foglio di lavoro che fa parte del lavoro di un documento 
è sincronizzato con la copia sul server (da Excel2003) Il parametro SyncEventType può assumere i 
seguenti valori: 


msoSyncEventDownloadFailed 
msoSyncEventDownloadInitiated 
msoSyncEventDownloadNoChange 
msoSyncEventDownloadSucceeded 
msoSyncEventOffline 
msoSyncEventUploadFailed 
msoSyncEventUploadInitiated 
msoSyncEventUploadSucceeded 


I S&S 


12.23 Private Sub WorkBook_SheetChange 


Questo evento viene attivato quando avvengono dei cambiamenti in una cella della cartella di lavoro, il 
parametro Sh corrisponde al foglio contenente la cella modificata e il parametro Target corrisponde 
alla cella modificata. Questo esempio identifica la cella che avete appena modificato. 


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
If Target.Count > 1 Then Exit Sub ‘identifica la cella modificata 
MsgBox "Hai modificato la cella " & Target.Address & _ 

"(" & Target.Value & ")" & _ 
" Nel foglio denominato " & Sh.Name 

End Sub 


12.24 Private Sub WorkBook_SheetFollowHyperlink 


L'evento si verifica quando viene attivato un collegamento ipertestuale e il parametro Sh corrisponde al 
foglio che contiene il collegamento, mentre il parametro Target è il collegamento dell'oggetto 


Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) 


MsgBox Target.Address & vbCrLf & Target.SubAddress 
End Sub 
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12.25 Private Sub WorkBook_SheetBeforeRightClick 


Questo evento si verifica quando si utilizza il pulsante destro del mouse in uno dei fogli della cartella di 
lavoro e viene attivato dopo WorkSheet_BeforeRightClick. Il parametro Sh corrisponde al foglio attivo e 
il parametro Target è la cella che riceve il tasto destro del mouse, mentre il parametro Cancel disabilita 
l'azione associata della macro. 


Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As 
Boolean) 

Cancel = True ‘ disabilita il tasto Dx 
End Sub 


12.26 Private Sub WorkBook_SheetBeforeDoubleClick 


Questo evento identifica il doppio click in una cella ed è attivato dopo Worksheet_BeforeDoubleClick. \l 
parametro Sh corrisponde alla scheda attiva e il parametro Target è la cella che riceve un doppio clic. il 
parametro Cancel disabilita l'azione della macro associata 


Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel 
AsBoolean) 
If Sh.Name = "Foglio1" Then 
Target.Interior.Color = RGB(255, 108, 0) ‘Arancione 
Else 
Target.Interior.Color = RGB(136, 255, 0) 'Verde 
End If 
End Sub 


12.27 Private Sub WorkBook_SheetPivotTableUpdate 


Questo evento si verifica quando si aggiorna una tabella pivot, il parametro Sh corrisponde a foglio che 
contiene la tabella e il parametro Target è l'oggetto Tabella pivot aggiornato. 


Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable) 
MsgBox "E’ stata aggiornata " & Sh.Name & " /" & Target.Name 
End Sub 


12.28 Private Sub WorkBook_SheetSelectionChange 


Questo evento si verifica quando viene modificata la selezione di una cella in uno dei fogli della cartella 
di lavoro e viene attivato dopo Worksheet_SelectionChange. Il parametro Sh è il foglio attivo e il 
parametro Target corrisponde alla cella selezionata. 


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 
MsgBox "Hai selezionato la cella " & Target.Address & _ 
" nel foglio denominato " & Sh.Name 
End Sub 
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13. Metodi e Proprietà del foglio di lavoro o Worksheet 


L'oggetto foglio rappresenta un singolo foglio in una cartella e si riferisce a una raccolta di tutti i fogli in 
una cartella di lavoro ed è un membro sia della collezione Worksheets (foglio di lavoro) che della 
raccolta Sheets (Foglio). La proprietà Workbook.Worksheets restituisce un insieme Worksheets (cioè 
un oggetto foglio), che si riferisce a tutti i fogli di una cartella di lavoro, mentre la proprietà 
Workbook.Sheets restituisce un insieme Sheets e si riferisce a tutti i fogli di una cartella di lavoro. 


MsgBox ActiveWorkbook.Worksheets. Count 


restituirà il numero dei fogli di lavoro nella cartella di lavoro attiva. L'oggetto Charts (grafico) 
rappresenta un diagramma in una cartella di lavoro, e può essere sia un grafico incorporato o un 
grafico separato e la collezione Charts si riferisce ad una raccolta di tutti i fogli grafici in una cartella, ed 
esclude tutti i grafici incorporati, mentre invece l'oggetto ChartObject rappresenta un grafico 
incorporato e si riferisce ad una raccolta di tutti gli oggetti ChartObject in un unico foglio 


Una cartella di lavoro può contenere quattro tipi di fogli, il foglio di lavoro, un foglio con grafico, fogli 
macro (Macro MS Excel 4.0) e un foglio di dialogo (finestra di dialogo MS Excel 5.0). | fogli macro 
(chiamati anche macro XLM)) e i fogli di dialogo (utilizzati nelle versioni precedenti di Excel per creare 
finestre di dialogo personalizzate, ora sostituiti dalle UserForm), sono ancora forniti e supportati in 
Excel 2007 solo per compatibilità con le versioni precedenti di Microsoft Excel, mentre un foglio macro 
(o un foglio di dialogo) non è incluso come parte della collezione dei fogli di lavoro, ma è una parte 
della collezione Sheets. 


Esempio: \llustrare i tipi di oggetti spiegati sopra, considerando una cartella di lavoro con tre fogli di 
lavoro denominati: Foglio1, Foglio2 e Foglio3), 2 grafici incorporati in Foglio1, 1 foglio grafico Chart1. 


Sub proval() 
Dim ws As Worksheet, i As Integer 
MsgBox ThisWorkbook.Sheets.Count 'Restituisce 6, in quanto ci sono: 3 fogli 
Fori= 1To ThisWorkbook.Sheets.Count ‘Restituisce i nomi di ognuno dei 6 fogli 
MsgBox ThisWorkbook.Sheets(i).Name 
Next i 
MsgBox ThisWorkbook.Worksheets.Count ‘Restituisce 3 (che sono i fogli di lavoro) 
For Each ws In ThisWorkbook.Worksheets 'Restituisce i nomi dei 3 fogli di lavoro 
MsgBox ws.Name 
Next 
Dim sh As Object 
For Each sh In ThisWorkbook.Sheets 'Restituisce i nomi di ognuno dei 6 fogli 
MsgBox sh.Name 
Next 
For Each sh In ThisWorkbook.Worksheets 'Restituisce i nomi dei 3 fogli di lavoro 
MsgBox sh.Name 
Next 
MsgBox ThisWorkbook.Charts.Count 'restituisce 1 - c'è 1 oggetto grafico "Chart1" 
MsgBox Sheets("Chart1").ChartObjects.Count ‘restituisce 0 - non c'è grafico nel foglio 
MsgBox Sheets("Sheet1").ChartObjects.Count 
End Sub 


13.1 Riferimenti a un singolo foglio di lavoro 
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Per fare riferimento o restituire un oggetto foglio di lavoro, usiamo le proprietà di entrambi i fogli di 
lavoro e l'oggetto foglio di lavoro. La proprietà Item dell'oggetto foglio si riferisce ad un singolo foglio in 
una collezione e presenta la seguente sintassi WorksheetsObject.Item (Index). Dove Index è il nome 
del foglio di lavoro o il numero di indice, che però è anche possibile omettere utilizzando il 'punto' in 
una sintassi come: 


WorksheetsObject (WorksheetName) o WorksheetsObject (IndexNumber) 


Il numero di indice inizia da 1, viene visualizzato per primo ed è collocato all'estrema sinistra del foglio 
di lavoro nella barra delle schede della cartella di lavoro che si incrementa verso destra per ogni foglio 
presente, inclusi i fogli di lavoro nascosti, e l'ultimo foglio collocato all'estrema destra del foglio di 
lavoro viene restituito da Worksheets (Worksheets.Count) . 


La proprietà Count dell'oggetto fogli di lavoro restituisce il numero di fogli nella collezione (cioè nella 
cartella di lavoro), inoltre per riferirsi a un singolo foglio nella raccolta fogli è possibile utilizzare la 
proprietà Sheets.Item con la seguente sintassi SheetsObject.Item (Index) 


La scheda del foglio di lavoro visualizza il nome del foglio stesso e si utilizza la 

proprietà Name dell'oggetto Worksheet per impostare o restituire il nome di un foglio di lavoro usando 
questa sintassi. WorksheetObject.Name. Di seguito alcuni esempi di codice con riferimento a un foglio 
di lavoro 


‘Restituisce il nome del primo foglio nella cartella attiva 

MsgBox ActiveWorkbook.Worksheets.Item (1). Name 

'oppure 

MsgBox ActiveWorkbook.Worksheets (1). Name 

‘Restituisce il nome del primo foglio ThisWorkbook, omettendo l'istruzione "Item" 
MsgBox ThisWorkbook.Worksheets (1). Name 

‘Attiva il foglio di lavoro denominato Foglio3 della cartella di lavoro attiva 
ActiveWorkbook.Worksheets ("Foglio3"). Activate 

‘Consultare il foglio attivo nella cartella di lavoro attivo 

MsgBox ActiveSheet.Name 


Esempio: Non specificando una cartella di lavoro si farà riferimento alla cartella di lavoro attiva, si usa il 
seguente codice per restituire il nome del secondo foglio di lavoro nella cartella di lavoro attiva 


MsgBox Worksheets (2). Name 
'oppure 
MsgBox Sheets(2). Name 


Esempio: Restituisce il nome del primo foglio di lavoro nella seconda cartella di lavoro 


MsgBox Workbooks(2).Worksheets(1).Name 
MsgBox Workbooks.Item(2).Worksheets.Item(1).Name 
MsgBox Workbooks(2).Worksheets.lItem(1).Name 
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Esempio: Consultare i fogli di lavoro della cartella di lavoro attiva contenente 3 fogli 


Sub prova2() 
MsgBox ActiveWorkbook.Worksheets(1).Name 'Restituisce il nome del 1° foglio "Foglio1" 
ActiveWorkbook.Worksheets(1).Name = "pippo" ‘Cambia il nome da "Foglio1" a "pippo" 


MsgBox Worksheets(1).Name 'Restituisce il nuovo nome del 1° foglio (pippo) 
MsgBox ActiveWorkbook.Worksheets(Worksheets.Count).Name 'nome dell'ultimo foglio (Foglio3) 
MsgBox ActiveWorkbook.Worksheets.Count 'Restituisce 3, il n° totale dei fogli di lavoro 
MsgBox Worksheets("Sheet2").Visible 'Restituisce -1, che indica che Foglio2 è visibile 
Worksheets("Sheet2").Visible = False 'Nasconde "Foglio2” 

MsgBox Worksheets("Sheet2").Visible 'Restituisce 0, che indica che "Foglio2" è nascosto 
End Sub 


Facendo riferimento a un intervallo di celle, omettendo il qualificatore oggetto — worksheet object - per 
impostazione predefinita assume ActiveSheet, vale a dire che utilizzando il codice Range 

("A1") restituirà la cella A1 del foglio attivo, e sarà lo stesso che utilizzare Application. Range ("A1") o 
ActiveSheet.Range ("A1"). 


13.2 L’Oggetto attivo o ActiveSheet 


Se non viene specificata la cartella di lavoro, Excel si riferisce alla cartella di lavoro attiva di default e nel 
codice VBA è possibile anche consultare l'attuale cartella di lavoro attiva come ActiveWorkbook 

o ActiveSheet e entrambe le espressioni Worksheets (1). Name e 

ActiveWorkbook.Worksheets (1).Name restituiranno il nome del primo foglio nella cartella di lavoro 
attiva che diventa anche l'oggetto di default in questo caso. Allo stesso modo, entrambe le 

espressioni Range ("A1"). Value = 56 e ActiveSheet.Range ("A1"). Value = 56 inseriranno il valore 56 
nella cella A1 del foglio di lavoro attivo nella cartella di lavoro attiva. 


Questa è una regola generale che omettendo il riferimento di una cartella di lavoro o foglio di lavoro ci 
si riferisce alla cartella di lavoro attiva o di default, ma è soggetto alle seguenti condizioni: 


v Quando il codice VBA viene inserito nei moduli foglio, se viene omesso il riferimento ad un 
foglio si farà riferimento al foglio specifico in cui il il codice viene inserito nel modulo e non 
al foglio attivo 

v Quando il codice VBA viene inserito nel modulo Workbook (ThisWorkbook), se si omette il 
riferimento ad una cartella si farà riferimento alla cartella di lavoro in cui è inserito il codice 
e NON alla cartella di lavoro attiva. Questo significa che, omettendo il riferimento ad un foglio 
di lavoro si imposterà ActiveSheet quando il codice VBA viene inserito nei moduli standard di 
codice (Module1, Module2, etc.) oppure nel modulo della cartella di lavoro (ThisWorkbook) 
e NON quando il codice VBA viene inserito nei moduli Foglio (Foglio1, Foglio2, etc.) o Formo 
eventuali moduli di classe 

v. Omettendo il riferimento a una cartella di lavoro, quella predefinita 
sarà ActiveWorkbook quando il codice VBA viene inserito nei moduli di codice standard 
(Module1, Module2, etc.) o nei moduli foglio (Foglio1, Foglio2, etc.) e NON quando il codice 
VBA viene inserito nel modulo Workbook(ThisWorkbook). 
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13.3 Codice Name e SheetName 


Nel Progetto VBE, la cartella Objects è sempre presente e contiene un oggetto foglio per ogni foglio di 
lavoro esistente, e un oggetto ThisWorkbook. Ogni oggetto foglio ha come primo nome il nome in 
codice del foglio, che appare al di fuori delle parentesi, e come secondo nome, che compare dopo il 
nome in codice e tra parentesi, il nome della scheda del foglio che appare nel foglio di lavoro di Excel. Il 
nome in codice del foglio di lavoro selezionato viene visualizzato a destra del “nome” nella finestra 
Proprietà, mentre il nome del foglio viene visualizzata a destra del nome quando si scorre verso il basso 
nella finestra Proprietà. Per impostazione predefinita, quando si aggiunge un foglio di lavoro, il nome in 
codice e il nome del foglio sono gli stessi e i nomi in codice di default e i fogli di default iniziano da 
Foglio1, Foglio2 etc. in questo ordine da sinistra a destra. 


È possibile modificare sia il nome in codice che il nome del foglio, mentre il nome del foglio può essere 
modificato nella finestra Proprietà (in VBE) o nella scheda foglio o da codice VBA, ma il nome in codice 
può essere modificato solo nella finestra Proprietà e non a livello di programmazione. 


Esempio: || codice seguente inserisce il testo "ciao" nella cella A1 del foglio di lavoro 


Sheet1.Range ("A1"). Value = "ciao" 
Worksheets ("Foglio1"). Range ("A1"). Value = "ciao" 
Worksheets (1). Range ("A1"). Value = "ciao" 


13.4 Attivare o selezionare un foglio di lavoro 


Il foglio attivo è il foglio che si sta attualmente visualizzando e la proprietà Workbook.ActiveSheet 
restituisce il foglio attualmente attivo in una cartella di lavoro: Sintassi WorkbookObject.ActiveSheet 
Per rendere un foglio attivo si deve utilizzare il metodo Worksheet.Activate con questa sintassi. 
WorksheetObject.Activate. E’ possibile selezionare più fogli di lavoro, ma si può attivarne solo uno. Per 
selezionare un foglio di lavoro si utilizza il metodo Worksheet.Select con questa sintassi. 
WorksheetObject.Select (Replace) 


Replace è un argomento facoltativo, usato solo quando si utilizza il Metodo Select per e ponendolo a 
True, questo argomento sostituirà la selezione precedente, mentre con False includerà la selezione 
precedente (estendendo così la selezione corrente per includere i fogli selezionati in precedenza) 
mentre omettendo la specifica, l'argomento sarà posto di default a True. 


Esempio: Selezionare fogli singoli o multipli 


Sub selezional() 


ActiveWorkbook.Worksheets(2).Select 'Seleziona e attiva il 2° foglio- Foglio2 
MsgBox ActiveWorkbook.ActiveSheet.Name 'Restituisce il foglio di lavoro attivo Foglio2 
ActiveWorkbook.Sheets(Array("Foglio3", "Foglio1")).Select 'Seleziona più fogli nella cartella 
MsgBox ActiveWorkbook.ActiveSheet.Name ‘Restituisce il foglio attivo- Foglio3 
ActiveWorkbook.Worksheets("Foglio2").Select 

MsgBox ActiveWorkbook.ActiveSheet.Name ‘Restituisce il foglio - Foglio2 


Dim i As Integer 'Selezionare più fogli di lavoro , tranne l'ultimo 

Fori= 1 To ThisWorkbook.Worksheets.Count - 1 

ActiveWorkbook.Worksheets(i).Select (False) 

Next i 

MsgBox ActiveWorkbook.ActiveSheet.Name ‘Restituisce il foglio attivo- Foglio2 
End Sub 
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Esempio: Selezionare e attivare i fogli di lavoro 


Sub seleziona2() 


ActiveWorkbook.Worksheets(1).Select 'Seleziona e attiva il 1° foglio (Foglio1) 
MsgBox ActiveWorkbook.ActiveSheet.Name ‘Restituisce il foglio attivo (Foglio1) 
ActiveWorkbook.Worksheets(2).Select (False) 'Seleziona il 2° foglio, senza attivarlo 
MsgBox ActiveWorkbook.ActiveSheet.Name 'Restituisce il foglio attivo (Foglio1) 
ActiveWorkbook.Worksheets(3).Select (False) 'Seleziona (Foglio3), senza attivarlo 
MsgBox ActiveWorkbook.ActiveSheet.Name 'Restituisce il foglioattivo (Foglio3) 
ActiveWorkbook.Worksheets(3).Activate 'Attiva il terzo foglio (Foglio3) 
MsgBox ActiveWorkbook.ActiveSheet.Name 'Restituisce il foglio attivo (Foglio3) 


Dim ws As Worksheet 
For Each ws In ActiveWindow.SelectedSheets 
MsgBox ws.Name 


Next 

ActiveWorkbook.Worksheets(4).Activate ‘Attiva e seleziona il 4° foglio -Foglio4 
MsgBox ActiveWorkbook.ActiveSheet.Name ‘Restituisce il foglio -Foglio4 
End Sub 


13.5 La Proprietà Window.SelectedSheets 


Si utilizzare la proprietà Window.SelectedSheets per determinare tutti i fogli selezionati in una finestra 
specificata con la seguente sintassi WindowObject.SelectedSheets, dove Window (1) si riferisce 
sempre alla finestra attiva. Una sola finestra (Window Object) è un membro della Collezione di 
Windows e la raccolta di Windows contiene tutte le finestre dell’Applicazione Excel (raccolta di 
Windows per l'oggetto Application) o contiene tutte le finestre della cartella di lavoro specificata 
(raccolta di Windows per oggetto Workbook). 


13.6 Aggiungere e rinominare fogli di lavoro 


Per creare o aggiungere un nuovo foglio di lavoro in una cartella di lavoro specificato, si utilizza il 
metodo Sheets.Add, con questa sintassi SheetsObject.Add(Before, After, Count, Type) 


I nomi di default dei fogli sono Foglio1, Foglio2 etc. in ordine da sinistra a destra e tutti gli argomenti 
sono opzionali. Si utilizza l'argomento Before per specificare il foglio prima del quale si desidera 
aggiungere il nuovo foglio, mentre si utilizza l'argomento After per specificare il foglio dopo il quale si 
desidera aggiungere il nuovo foglio. L'argomento Count specifica il numero di fogli che si desidera 
aggiungere, di default è uno, mentre si utilizza l'argomento Type per specificare un valore costante o 
(costante XISheetType) che indica il tipo di foglio da aggiungere che possono essere: XISheetType, 
x|Worksheet, xIChart, xlExcel4MacroSheet, xlExcel4IntIMacroSheet o xIDialogSheet. Esempi di aggiunta 
di un foglio: ActiveWorkbook.Worksheets.Add 


‘Specificando l'argomento After, si aggiunge un nuovo foglio dopo Foglio2 
ActiveWorkbook.Worksheets.Add After: = Worksheets ("Foglio2") 

‘Specificando gli argomenti After e Count, si aggiungono 3 fogli dopo Foglio2 
ActiveWorkbook.Worksheets.Add After: = Worksheets ("Foglio2"), Count: = 3 
‘Specificando gli argomenti After e Count, si aggiungono 2 nuovi fogli dopo Foglio2 
ActiveWorkbook.Worksheets.Add, Worksheets ("Foglio2"), 2 
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13.7 Nomidi fogli di predefiniti 


Abbiamo visto poco sopra come creare una nuova cartella di lavoro utilizzando il metodo 
Workbooks.Add (riferito all'oggetto Workbooks) e a meno che non si specifichi un file Excel come 
modello per la nuova cartella di lavoro, il metodo Add creerà una nuova cartella di lavoro di Excel con il 
default di tre fogli bianchi, in cui il numero predefinito di fogli può essere modificato utilizzando la 
proprietà Application.SheetsIinNewWorkbook. | tre fogli bianchi avranno di default i nomi Foglio1, 
Foglio2 e Foglio3, in ordine da sinistra a destra. 


Si utilizza la proprietà Name dell'oggetto Worksheet ( Worksheet.Name) per impostare o restituire il 
nome di un foglio di lavoro Sintassi WorksheetObject.Name. 


‘Restituisce il nome del primo foglio di lavoro nella cartella di lavoro attiva 

MsgBox ActiveWorkbook.Worksheets (1). Name 

‘Attivare il foglio di lavoro denominato Foglio1 della cartella di lavoro attiva 
ActiveWorkbook.Worksheets ("Foglio1"). Activate 

‘Modificare il nome di Foglio1 nella cartella di lavoro attiva prova1 

ActiveWorkbook.Worksheets ("Foglio1"). Name = "prova" 

‘specificando l'argomento Before si aggiunge un nuovo foglio di lavoro prima del Foglio2, e si rinomina il 
nuovo foglio di lavoro pippo 

ActiveWorkbook.Worksheets.Add (Before: = Worksheets ("Foglio2")). Name = "pippo" 


‘Restituire i nomi di tutti i fogli in ThisWorkbook 

Dim i As Integer 

Fori= 1 To ThisWorkbook.Sheets.count 

MsgBox ThisWorkbook.Sheets (i). Name 

Next i 

‘Restituire i nomi di tutti i fogli di lavoro nella cartella di lavoro attiva 
Dim ws As Worksheet 

For Each ws In ActiveWorkbook.Worksheets 

MsgBox ws.Name 

Next 


Esempio: Aggiungere un nuovo foglio, e consultarlo utilizzando la sua variabile oggetto 


Sub foglio1() 

Dim wsNew As Worksheet 
Set wsNew = Worksheets.Add 
wsNew.Name = "Pippo1" 


Worksheets.Add "Rif. al nuovo foglio che diventa il foglio attivo 
ActiveSheet.Name = "Pippo2" 
End Sub 
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13.8 Copiare un foglio di lavoro 


Si utilizza il metodo Worksheet.Copy per copiare un foglio di lavoro e posizionarlo, prima o dopo un 
altro foglio in una cartella di lavoro, o per creare una nuova cartella di lavoro contenente il foglio 
copiato utilizzando il metodo Sheets. Copy per copiare un foglio usando la seguente sintassi 
WorksheetObject.Copy ( Before, After). Entrambi gli argomenti Before e After sono opzionali, ed è 
possibile specificarne solo uno alla volta e questi argomenti fanno riferimento al foglio prima o 

dopo dove il foglio copiato sarà posto, e omettendo entrambi gli argomenti si creerà una nuova cartella 
di lavoro contenente il foglio copiato. 


‘Copiare Foglio1 e posizionarlo nella cartella attiva prima di Foglio3 

Worksheets ("Foglio1"). Copy Before: = Sheets ("Foglio3") 

‘Copiare Foglio1 e posizionarlo nella cartella attiva dopo il Foglio3 

Worksheets ("Foglio1"). Copy After: = Sheets ("Foglio3") 

‘Copiare Foglio1 dalla cartella attiva e metterlo prima del foglio pippo nella cartella prova.xlIsm 
Worksheets ("Foglio1"). Copy Before: = Workbooks ("prova.xlIsm"). Sheets ("pippo") 


13.9 Spostare o cambiare sequenza al foglio 


Si utilizza il metodo Worksheet.Move per spostare un foglio di lavoro e posizionarlo, prima o dopo un 
altro foglio in una cartella di lavoro, o per creare una nuova cartella di lavoro contenente il foglio 
spostato con questa sintassi. WorksheetObject.Move ( Before, After) 


Entrambi gli argomenti Before e After sono opzionali, ed è possibile specificare solo uno di questi alla 
volta, inoltre questi argomenti fanno riferimento al foglio prima o dopo dove verrà inserito il foglio 
spostato, e omettendo entrambi gli argomenti si creerà una nuova cartella di lavoro contenente il 
foglio spostato. È possibile spostare un foglio di lavoro in una posizione all'interno della stessa cartella 
di lavoro o ad un'altra cartella di lavoro e lo spostamento di un foglio di lavoro modifica la sequenza dei 
fogli di lavoro, nelle schede che appaiono in una cartella di lavoro, ma non in Esplora progetti in VBE. 


‘Spostare il foglio denominato Foglio1 nella cartella attiva e posizionarlo prima del Foglio3 
Worksheets ("Foglio1"). Move Before: = Sheets ("Foglio3") 

‘Spostare il foglio denominato "Foglio1" nella cartella attiva e posizionarlo dopo il "Foglio3" 
Worksheets ("Foglio1"). Move After: = Sheets ("Foglio3") 


13.10 Nascondere o rendere visibile un foglio di lavoro 


Per nascondere un foglio di lavoro o per renderlo visibile si utilizzare la proprietà Worksheet. Visible 
utilizzando semplicemente il codice Worksheets ("Foglio1"). Visible = False per nascondere 
e Worksheets ("Foglio1"). Visible = True per renderlo visibile. L' enumerazione 


v. XISheetvVisibility viene utilizzata per impostare o restituire un valore che indica se il foglio è 
visibile o nascosto 

v. xlSheetHidden si nasconde un foglio di lavoro 

v_ xISheetVeryHidden si nasconde un foglio di lavoro che può essere reso visibile solo attraverso 
codice VBA 

v_ xISheetVisible si renderà visibile il foglio. 


Esempio: Utilizzare i metodi per nascondere, rendere visibile o rendere molto nascosto il foglio1 
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Sub nascondi1() 


Worksheets("Foglio1").Visible = False 'Nasconde Foglio1 

MsgBox Worksheets("Foglio1").Visible 

Worksheets("Foglio1").Visible = True 'Rende visibile Foglio1 

MsgBox Worksheets("Foglio1").Visible 

Worksheets("Foglio1").Visible = 2 'Rende Foglio1 molto nascosto 

MsgBox Worksheets("Foglio1").Visible 

Worksheets("Foglio1").Visible = xISheetVisible 'Rende visibile Foglio1 

MsgBox Worksheets("Foglio1").Visible ‘Restituisce -1, indica che Foglio1 è visibile 
End Sub 


Esempio: Nasconde tutti i fogli tranne l'ultimo. P.S. : non possono essere nascosti tutti i fogli 


Sub nascondi2() 

Dim oSh As Object, i As Long 
Sheets(Sheets.Count).Visible = True 
Fori=1To Sheets.Count -1 
Sheets(i).Visible = xISheetHidden 
Nexti 
For Each oSh In Sheets 
oSh.Visible = xlSheetVisible 
Next 
End Sub 


13.11 Rimuovere o eliminare un foglio di lavoro 


Si utilizzare il metodo Worksheet.Delete per eliminare o rimuovere un foglio di lavoro in una cartella 
con la seguente sintassi. WorksheetObject.Delete. Usando questo metodo verrà visualizzata una 
finestra di dialogo che chiede all'utente di confermare o annullare l'eliminazione. Con l'impostazione 
della proprietà Application. DisplayAlerts a False non verrà visualizzata nessuna richiesta o avviso e in 
questo caso una risposta predefinita sarà scelta da Excel. Questa proprietà viene ripristinata al valore 
predefinito (True) dopo che la procedura è termina. Utilizzare il codice Application. DisplayAlerts = 
False per eliminare un foglio di lavoro senza visualizzare nessun avviso 


‘Cancellare il Foglio1 nella cartella di lavoro attiva, senza visualizzare nessun avviso 
Application.DisplayAlerts = False 
Sheets ("Foglio1"). Delete 


13.12 Fogli di lavoro e layout di stampa 


Vediamo ora brevemente alcune opzioni per il layout di pagina di un foglio di lavoro, e come 
personalizzare le viste della cartella di lavoro. Per le impostazioni di pagina di un foglio di lavoro si 
utilizza la proprietà Worksheet.PageSetup che si occupa degli attributi della pagina per il foglio di 
lavoro come l'orientamento, i margini, le dimensioni della carta, e così via. Usando la proprietà 
PageSetup restituisce un oggetto PageSetup e gli attributi sono impostati come proprietà dell'oggetto 
cioè Orientaton, PrintArea, LeftMargin, RightMargin, etc che sono le proprietà dell'oggetto PageSetup. 
Vedere il seguente esempio sull'utilizzo di queste proprietà per impostare gli attributi della pagina. 
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Sub setup_pagina() 

With Worksheets("Foglio3") 

With .PageSetup 

.PrintTitleRows = Rows(1).Address 
.Orientation = xlLandscape 


.Zoom = 90 

.PrintArea = "S$D$1:SRS50" 

.CenterHeader = "&P" 'inserire il N° di pagina nell'intestazione allineato al centro 
.FirstPageNumber = 2 ‘Imposta il primo N° di pagina da utilizzare durante la stampa 


.PaperSize = xlPaperA4 

.LeftMargin = Application.InchesToPoints(0.25) 
.RightMargin = Application.InchesToPoints(0.5) 
.TopMargin = Application.InchesToPoints(1) 
.BottomMargin = Application.InchesToPoints(0.75) 
.HeaderMargin = Application.InchesToPoints(0.5) 
.FooterMargin = Application.InchesToPoints(0.25) 
End With 

.PrintOut 

End With 

End Sub 


E possibile visualizzare un'anteprima di come il foglio verrà stampato utilizzando il metodo 
Worksheet.PrintPreview con questa sintassi WorksheetObject.PrintPreview (EnableChanges). 


E’ facoltativo specificare l'argomento EnableChanges, che accetta un valore booleano (il valore 
predefinito è True), per consentire o non consentire all'utente di modificare le opzioni di impostazione 
della pagina disponibili in anteprima di stampa. È inoltre possibile applicare il metodo PrintPreview a un 
oggetto cartella di lavoro o a un oggetto Range, per visualizzare un'anteprima di come verrà eseguita la 
stampa. Esempio — PrintPreview 


Sub anteprima() 

‘Visualizzare un'anteprima di stampa del foglio attivo della cartella di lavoro "prova.xIsm, 
Workbooks("prova.xlsm").PrintPreview EnableChanges:=False 

‘Visualizzare un'anteprima di stampa del Foglio3 della cartella "prova.xIsm, 
Workbooks("prova.xlsm").Worksheets("Foglio3").PrintPreview EnableChanges:=True 
End Sub 


Utilizzando la proprietà Worksheet.DisplayPageBreaks è possibile visualizzare sia le interruzioni di 
pagina automatiche che manuali su un foglio di lavoro.Questa è un'impostazione booleana che può 
essere impostata solo se è installata una stampante. Codice: ActiveSheet.DisplayPageBreaks = True 
verranno visualizzate le interruzioni di pagina sul foglio attivo. Si utilizza la proprietà Window. View, per 
impostare o restituire una cartella di lavoro (foglio di lavoro attivo) come verrà mostrata nella finestra, 
utilizza questa sintassi WindowObject.View. Si possono avere tre impostazioni per questa struttura: 


v. xINormalView (valore 1) 
v. xIPageBreakPreview (valore 2) 
v. xIPageLayoutView (valore 3) 


Che rispettivamente sono le visualizzazioni della cartella di lavoro definite 'Normale', 'Layout di pagina! 
e 'interruzione di pagina'. Vedi esempio sotto riportato 
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Sub vista1() 

Worksheets("Foglio3").Activate 'Attivare il foglio di lavoro 

With ActiveSheet 

.Rows(9).PageBreak = xIPageBreakManual ‘si imposta la posizione di un'interruzione manuale 


.Columns("G").PageBreak = xlPageBreakManual 

With .PageSetup 

.Orientation = xIPortrait 

.Zoom = 100 

.PrintArea = "SAS1:$L$17" 

.CenterHeader = "&P" 'N° di pagina da stampare allineata al centro 
.FirstPageNumber = 1 

End With 

End With 

ActiveWindow.View = xlPageBreakPreview 

ActiveSheet.Rows(9).PageBreak = xIPageBreakNone 'Reset alla visualizzazione normale 
ActiveSheet.Columns("G").PageBreak = xIPageBreakNone 

ActiveSheet.DisplayPageBreaks = False 


ActiveSheet.PageSetup.PrintArea = "" 'l’Intero foglio diventa l'area di stampa 
ActiveWindow.View = xINormalView ‘Impostare la visualizzazione normale 
ActiveWindow.View = xlPageLayoutView ‘Impostare la visualizzazione Layout di pagina 
End Sub 


Spesso è possibile utilizzare i seguenti codici per togliere la barra della formula da tutti i fogli, o 
all'attivazione del foglio di lavoro, oppure in altri contesti sfruttando svariati eventi 


Application.DisplayFormulaBar = False 'Nascondere la barra della formula 
Application.DisplayFullScreen = True ‘Impostare Excel a schermo intero 
ActiveWindow.DisplayHeadings = False 'Nascondere le intestazioni del foglio 
ActiveWindow.DisplayGridlines = False 'Nascondere la griglia 
ActiveWindow.FreezePanes = True 'Blocca riquadri 


Private Sub Workbook_Activate () 
Application.DisplayFormulaBar = False 
End Sub 

Private Sub Workbook_Deactivate () 
Application.DisplayFormulaBar = True 
End Sub 


13.13 Calcolo nei fogli di lavoro 


La proprietà Application. Calculation restituisce o imposta la modalità di calcolo di Excel e dispone di 3 
impostazioni: 

v. xICalculationAutomatic - (Default) ricalcolo automatico come i dati vengono immessi 

v. xICalculationSemiautomatic - Ricalcolo automatico ad eccezione delle tabelle di dati 

v xICalculationManual - Il calcolo viene fatto solo quando richiesto dall'utente facendo clic su 


"Calcola ora" o "Calcola foglio" o premendo F9, oppure con codice VBA. 


Esempio: Impostare la modalità di calcolo manuale: Application. Calculation = xICalculationManual 
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Si applicare il metodo Calculate a un oggetto foglio per calcolare un foglio di lavoro specifico in una 
cartella di lavoro, oppure si può applicare questo metodo a un oggetto Application per calcolare tutte 
le cartelle di lavoro aperte, oppure è possibile applicare questo metodo a un intervallo di celle di un 
foglio di lavoro. 


Application.Calculate ‘Il metodo calcola applicato a tutte le cartelle aperte 
Calculate 

Application.Worksheets ("Foglio1"). Calculate ‘Il metodo Calcola applicato al Foglio1 
Worksheets ("Foglio1"). Calculate 

Worksheets ("Foglio1"). Range ("A5: B6"). Calculate ‘Calcola applicato all'intervallo di celle 
Worksheets ("Foglio1"). Columns (1). Calculate ‘Calcolare la colonna A in un 

Range ("A5, A6, B7, B20"). Calculate ‘Calcola celle non contigue nel foglio attivo 


In Excel, la modalità di calcolo predefinita è la Modalità Automatica Application. Calculation = 
xICalculationAutomatic, in cui Excel calcola automaticamente ogni cella come si entra nel foglio, 
quando Excel è in modalità manuale Application.Calculation = xICalculationManual il calcolo viene 
effettuato solo quando richiesto dall'utente, facendo clic su "Calcola Ora" o premendo F9 o cambiando 
la modalità di calcolo. In modalità automatica, per ciascun nuovo valore immesso da una macro, Excel 
ricalcolerà tutte le celle interessate dal nuovo valore rallentando notevolmente l'esecuzione del codice 
VBA, soprattutto nel caso di grandi macro i cui calcoli sono significativi. 


Per accelerare una macro e rendere l'esecuzione più veloce ed efficiente, è tipico disattivare il calcolo 
automatico all'inizio della macro e ricalcolare il foglio di lavoro specifico utilizzando il metodo Calculate 
all'interno della macro. Il seguente esempio disattiva gli aggiornamenti dello schermo e i calcoli 
automatici e utilizza il metodo Calculate, durante l'esecuzione del codice VBA 


Sub Calcola() 


Application.ScreenUpdating = False 'Disattivare Aggiornamenti schermo 
Application.Calculation = xlCalculationManual 'Disattivare calcoli automatici 
e 'Inserisci qui il tuo codice 

Application.Calculate 'calcolare tutte le cartelle aperte 
Application.ScreenUpdating = True ‘Attivare gli aggiornamenti dello schermo 
Application.Calculation = xICalculationAutomatic ‘Attivare calcoli automatici 

End Sub 


A volte si può impostare la proprietà Application.CalculateBeforeSave a True per calcolare le cartelle di 
lavoro prima di salvarle su disco se la struttura di calcolo è stata impostata su manuale 

specificando x/CalculationManual. La proprietà CalculateBeforeSave accetta valori booleani (True o 
False) e non è influenzata dalla modifica della proprietà di calcolo. In questo caso 


Application.Calculation = xICalculationManual 
Application.CalculateBeforeSave = True 


Si imposta la proprietà Worksheet.EnableCalculation a True, per ricalcolare automaticamente il foglio 
di lavoro quando questa proprietà è impostata su False, Excel non ricalcola il foglio, e quando 
l'impostazione viene modificata da False a True, Excel esegue il ricalcolo. Questa proprietà non viene 
mantenuta quando la cartella di lavoro viene chiusa, e tornerà al suo valore predefinito (True) per 
l'apertura della cartella di lavoro, sarà necessario resettare con il codice VBA ogni volta che si apre la 
cartella di lavoro. 
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Per controllare i calcoli per ogni foglio di lavoro, è possibile impostare la proprietà EnableCalculation a 
False per i fogli di lavoro che non si desidera calcolare, e quindi impostare la proprietà 
Application.Calculation a xICalculationAutomatic. L'esecuzione del metodo Calculate su un foglio per il 
quale la proprietà EnableCalculation è impostata su False, non calcolerà tale foglio. Il seguente codice 


calcola automaticamente tutti i fogli tranne Foglio1 


Worksheets ("Foglio1"). EnableCalculation = False 
Application.Calculation = xICalculationAutomatic 
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14. Gestione degli Eventi nel foglio di lavoro 


Ci sono molti modi per eseguire una macro, possiamo “lanciarla” avviando la finestra di dialogo Macro, 
tramite un tasto di scelta rapida, un comando di menu o un pulsante personalizzato, la caratteristica 
comune di tutti questi metodi è che per eseguire la routine l'utente deve fare qualcosa, scegliere un 
comando, premere una combinazione di tasti o fare clic su un pulsante. In VBA vi sono tuttavia diverse 
tecniche che permettono di eseguire delle routine automaticamente quando si verifica un determinato 
evento, ad esempio l'apertura di una cartella di lavoro o l'apertura di un determinato foglio di lavoro. 


Vediamo adesso come si creano routine per eventi specifici associati agli oggetti di Excel, prima di tutto 
però può essere utile rivedere alcuni concetti relativi alle routine di evento. L'esecuzione di una routine 
guidata dagli eventi è ciclica, anziché seguire un percorso lineare dall'inizio alla fine, la routine rimane 
in attesa che si verifichino determinati eventi e quindi rispondere a questi. Un evento è qualcosa che 
avviene nel programma, per esempio l'apertura di una cartella di lavoro, l'attivazione di un foglio di 
lavoro, il salvataggio di una cartella di lavoro. Poiché gli eventi specifici che si verificano durante 
l'esecuzione del programma ne determinano il comportamento, si dice che questo è guidato da tali 
eventi. Quando si verifica un evento il programma esegue una o più routine correlate a tale evento. 


14.1 Gli Eventi del foglio di lavoro 


Gli oggetti di Excel quali Workbook Worksheet contengono un modulo di classe in cui sono 
memorizzate le routine di gestione degli eventi di tali oggetti. Il modulo di classe di un foglio di lavoro 
di Excel (Worksheet) si raggiunge cliccando sul nome di un foglio, come si vede in figura 1 indicato 
dalla freccia rossa e selezionando l'oggetto Worksheet nell'apposita finestra a discesa indicata 

dalla freccia blu, compare nella finestra del codice la prima routine degli eventi, oltre alla quale, ne 
sono presenti molti altri selezionabili nella finestra a discesa indicata dalla freccia verde. Quando 
selezionate un evento nell'elenco routine (freccia verde), VBA inserisce una dichiarazione vuota per 
quella routine. Nella finestra Codice della figura sotto riportata potete vedere la dichiarazione vuota 
della routine di gestione dell'evento Se/lectionChange del foglio di lavoro 


Progetto - YBAProject 


|Worksheet v | | SelectionChange 


Private S orksheet SelectionChange (ByvaBTarget As Range) 


| # & EuroTool (FUROTOOL.XLA) 
- gÉ YBAProject (Cartell) End Sub 
—|. #9 Microsoft Excel Oggetti 
E) Foglio1 {Foglio1) 
E) Foglio2 {Foglio2) 
E) Foglio3 {Foglio3) 
3) ThisWorkbook 


| vari eventi associati all'oggetto Worksheet sono: 
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14.2 Private Sub WorkSheet_Activate 


Questo evento viene innescato quando il foglio viene attivato e se al suo interno è presente del codice 
VBA, questo viene eseguito. Alcuni esempi di utilizzo di questo evento 


Private Sub Worksheet_Activate() 
UserForm1.Show ‘mostra la userform1 
End Sub 


14.3 Private Sub WorkSheet_SelectionChange 


Questo evento si verifica quando si seleziona una cella nel foglio ed il parametro Target corrisponde 
alla cella selezionata. 


Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

'Cambia il colore di sfondo di una cella solo se è selezionata e vuota 

If Target.Cells.Count = 1 And IsEmpty(Target) Then Target.Interior.Color = vbBlue 
End Sub 


14.4 Private Sub WorkSheet_Change 


Questo evento viene generato quando il contenuto di una cella nel foglio di lavoro viene modificato, la 
procedura non tiene conto dei cambiamento di formato nella cella, inoltre il parametro Target 
corrisponde alla cella modificata. 


Private Sub Worksheet_Change(ByVal Target As Range) 

'cambia il colore del font della cella se viene modificata 
Target.Font.ColorIndex = 5 

End Sub 


14.5 Private Sub WorkSheet_Deactivate 


Questo evento viene attivato quando il foglio è spento (commutazione tra i fogli della stessa cartella di 
lavoro.) La procedura non viene avviata se si attiva un'altra applicazione o un'altra cartella di lavoro 


Private Sub Worksheet_Deactivate() ‘proteggere un foglio all’uscita 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 

End Sub 

Private Sub Worksheet_Deactivate() ‘nascondere un foglio 


Sheets("Foglio3").Select 
ActiveWindow.SelectedSheets.Visible = False 
End Sub 
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14.6 Private Sub WorkSheet_BeforeDoubleClick 


Identifica il doppio click in una cella e il parametro Target corrisponde alla cella che riceve il doppio 
click, mentre il parametro Cancel disabilita l'azione della macro associata con un evento. Il doppio click 
consente di modificare la cella (il cursore lampeggia nella cella), ma se si specifica il valore di Cancel = 
True la modifica verrà impedita. 


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
MsgBox "Hai fatto Doppio click sulla cella " & Target.Address 
End Sub 


14.7 Private Sub WorkSheet_BeforeRightClick 


Questo evento si verifica quando si utilizza il pulsante destro del mouse su una cella nel foglio, il 
parametro Target corrisponde alla cella che riceve il tasto destro del mouse, mentre il parametro 
Cancel disabilita l’azione della macro associata a questo evento. 


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 
MsgBox "Contenuto protetto dalla copia" ‘impedisce di copiare il contenuto del range 


Cancel = True 
End Sub 


14.8 Private Sub WorkSheet_Calculate 


Questo evento viene attivato quando il foglio di lavoro viene ricalcolato solo se l'opzione di calcolo 
automatico non è attivata. 


Private Sub Worksheet_Calculate() 


Columns("A:F").AutoFit ‘regola dimensioni colonne da A a F ogni volta che si ricalcola il foglio 
End Sub 


14.9 Private Sub WorkSheet_FollowHyperlink 


L'evento si verifica quando un collegamento viene attivato nel foglio di lavoro, il parametro Target è il 
collegamento ipertestuale 


Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 


MsgBox Target.Address & vbCrLf & Target.SubAddress 
End Sub 


14.10 Private Sub WorkSheet_PivotTableUpdate 


Questo evento si verifica quando si aggiorna una tabella Pivot contenuta nella scheda, il parametro 
Target è la tabella pivot. 
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15. Le colonne di un foglio di lavoro 


In VBA per Excel, per fare riferimento a livello di programmazione ad una colonna, si utilizza 
una Collection (raccolta) oppure un Range (Intervallo) e per ottenere un riferimento a una colonna o 
un gruppo di colonne, si dichiara una variabile di tipo Range tipo: Dim Series As Range 


Per inizializzare la variabile, è possibile identificare le cartelle di lavoro e i fogli di lavoro che si stanno 
utilizzando, vediamo degli esempi in cui utilizzeremo l'indice della colonna racchiuso tra le parentesi 


Workbooks(1).Worksheets(2).Columns(1) ‘si riferisce alla 1° colonna 
Workbooks(1).Worksheets(2).Columns(12) ' si riferisce alla 12° Colonna 


È possibile omettere l'indice (1) per identificare la prima cartella di lavoro se sappiamo che si fa 
riferimento alla cartella di lavoro di default. Pertanto, il codice precedente può essere scritto come 
segue: Worksheets(2).Columns(4) 


Quando questo codice viene eseguito, Excel deve avere il secondo foglio di lavoro attivo, se così non 
fosse e il foglio attivo è un foglio di lavoro diverso dal secondo, si riceverà un errore: 


FE 
Microsoft Visual Basic 


pe di run-time '9'; 


Indice non induso nell'intervallo 


Se si desidera accedere a una specifica 
colonna, in ogni foglio di lavoro della cartella 
attiva, è possibile omettere l'indicazione del 
foglio di lavoro: 

esempio: Columns(4) 


Il codice indica che ci si riferisce alla quarta colonna di qualsiasi foglio di lavoro che è attualmente 
attivo. E’ possibile fare riferimento a una colonna utilizzando il suo nome, passando la sua lettera o 
combinazione di lettere come una stringa tra le parentesi del metodo Columns in questo modo: 


Columns(“A”) ‘ si riferisce alla colonna A 
Columns(“DR”) ‘ si riferisce alla colonna DR 


Per fare riferimento a colonne adiacenti, è possibile utilizzare il metodo Columns e nelle parentesi si 
digita il nome della colonna all'estrema sinistra del Range, seguito da due punti ":" e seguito dal nome 
della colonna situata all'estrema destra del Range. Ecco un esempio che si riferisce alle colonne 


nell'intervallo da D a G: Co/umns(“D:G”) 


È inoltre possibile selezionare le colonne utilizzando il metodo Range e per effettuare questa 
operazione, si digita il nome della prima colonna, seguita da due punti, e seguito dal nome della 
colonna all'altra estremità: Range(“D:H”). 


Per fare riferimento a colonne non adiacenti, si utilizza il metodo Range e nelle sue parentesi, si digita 


ogni nome di una colonna, seguito da due punti e seguito con lo stesso nome di colonna, quindi 
separare queste combinazioni con virgole in questo modo: Range(“H:H, D:D, B:B”) 
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15.1 Selezionare le colonne 


Per supportare la selezione di una colonna, la classe Columns è dotata di un metodo denominato 
Selecte non necessita di ricevere alcun argomento, per selezionare la quarta colonna, si usa il codice 
Columns(4).Select. Mentre invece per selezionare una colonna utilizzando il suo nome, si usa questo 
codice: Columns(“ADH”).Select 


Quando viene selezionata una colonna, viene memorizzato in un oggetto chiamato Selection, ed è 
quindi possibile utilizzare l'oggetto per intraprendere l'azione da applicare alla colonna. Per selezionare 
una serie di colonne adiacenti, nelle parentesi del metodo Columns, si immette il 

u,n 


nome della prima colonna a un'estremità, seguito da due punti ":" e di seguito il nome della colonna 
che sarà all'altra estremità. esempio: Columns(“D:G”).Select. 


È possibile utilizzare questa stessa notazione per selezionare una colonna utilizzando il metodo Range, 
inserendo nelle parentesi il nome della colonna, seguita da due punti, e seguito dal nome della stessa 
Range(“G:G”).Select. Per selezionare invece delle colonne non adiacenti, si utilizza la tecnica che 
abbiamo visto in precedenza per fare riferimento alle colonne, quindi si richiama il metodo Select. Ecco 
un esempio: Range(“H:H, D:D, B:B”).Select 


15.2 Inserire colonne 


Per sostenere la creazione di colonne, la classe Columns è dotata di un metodo denominato /nserte 
anche questo metodo non richiede alcun argomento o parametro, quando si richiama, è necessario 
specificare la colonna che succederà a quella nuova, per esempio se si vuole creare una nuova colonna 
nella terza posizione e spostare le colonne a destra si usa questo codice: Columns(3).Insert 


Per aggiungere nuove colonne, si deve specificare la loro posizione utilizzando la classe Range come 
abbiamo visto prima, quindi richiamare il metodo Insert della classe Columns. Ecco un esempio che 
crea nuove colonne nelle posizioni delle colonne B, D e H che vengono spostate verso destra per far 
posto a quelle nuove: Range(“H:H, D:D, B:B”).Insert 


15.3 Eliminare colonne 


Per fornire la capacità di eliminare una colonna, la classe colonna è dotata di un metodo denominato 
Delete. Per eliminare una colonna, si utilizza la raccolta Columns per specificare l'indice o il nome della 
colonna che verrà cancellata. Esempio che rimuove la quarta colonna: Columns(“D:D”).Delete 


Per eliminare varie colonne adiacenti, si deve specificare il Range e richiamare il metodo Delete. 
Columns(“D:F”).Delete. Per eliminare più colonne non adiacenti, si utilizza la classe Range richiamando 
il metodo Delete. Range(“C:C, E:E, P:P”).Delete 


15.4 Dimensioni delle colonne 


Per supportare le dimensioni delle colonne, la classe Columns è dotata di una proprietà denominata 
ColumnWidth, pertanto si può modificare la larghezza di una colonna accedendo alla sua proprietà 
ColumnWidth e assegnare il valore desiderato. Columns(“C”).ColumnWidth = 4.5 


Per utilizzare la proprietà Adatta si deve prima selezionare la colonna e usare la selezione oggetto, 
accedere alla sua proprietà, quindi richiamare il metodo Adatta della proprietà della Colonna. 
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Selection. Columns.AutoFit. Per specificare la larghezza di molte colonne, si deve utilizzare la classe 
Range, quindi accedere alla proprietà ColumnWidth, e assegnare il valore desiderato. 
Range(“C:C, E:E, H:H”).ColumnWidth = 5# 


15.5 Nascondere le colonne 


Per nascondere una colonna si deve prima selezionarla, quindi assegnare il valore TRUE alla 
proprietà Hidden dell'oggetto EntireColumn della selezione. Si consideri il seguente codice: 


Private Sub Prova2 () 
Columns(“F:F”).Select ‘ Nascondere la colonna F 
Selection.EntireColumn.Hidden = True 

End Sub 


Per nascondere una serie di colonne, si devono selezionare, quindi assegnare il valore True (vero) alla 
proprietà Hidden. Si tenga presente che per rivelare le colonne nascoste si può agire anche cliccando 
col pulsante destro del mouse su un'intestazione di colonna e scegliere Scopri dal menu a discesa che 
compare, oppure dalla barra multifunzione, cliccando su Home e nella sezione celle, cliccare su 
Formato, posizionare il mouse su Hide & Scopri, quindi fare clic su Scopri colonne. 
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16. Le Righe di un foglio di lavoro 


Sappiamo già che in un foglio di lavoro le informazioni vengono organizzate in colonne e righe e come 
per le colonne, ciascuna riga è etichettata e numerata. Queste etichette sono rappresentate da piccoli 
rettangoli posti sul lato sinistro dell'interfaccia di Excel e ogni rettangolo che mostra l'etichetta di una 
riga è chiamata intestazione di riga. E' possibile identificare le righe in un foglio di lavoro tramite la 
proprietà Rows di cui è dotato il foglio, pertanto, per fare riferimento a una riga, è possibile utilizzare 
l'oggetto foglio di lavoro per accedere alla proprietà Rows, in alternativa è possibile fare riferimento 
alle righe utilizzando l'oggetto Range. 

Per identificare una riga si deve indicare il relativo foglio di lavoro e passare il suo indice tra le parentesi 
al metodo Rows, ecco un esempio che si riferisce alla 5 ° riga del secondo foglio di lavoro della cartella 
di lavoro corrente: Workbooks.Item(1).Worksheets.Item(2).Rows(5) 


Come per le colonne, il codice funziona solo se il secondo foglio della cartella di lavoro corrente è 
attivo, se si esegue il codice mentre un foglio di lavoro diverso dal secondo è attivo, si riceverà un 
errore. Come già detto, è possibile fare riferimento a una riga utilizzando l'oggetto Range, passando 
una stringa in cui nelle parentesi, si inserisce il numero della riga, seguito da due punti, e seguito dallo 
stesso numero di riga. Range(“4:4”) 


Se si vuole fare riferimento alle righe più di una volta, è possibile dichiarare una variabile di tipo Range 
e inizializzarla utilizzando l'operatore Set e assegnare l'intervallo che si desidera. 


Sub Prova() 

Dim Serie_r As Range 

Set Serie_r = Workbooks.Item(1).Worksheets.Item(“Foglio1”).Range(“4:4”) 
Serie_r.Select 

End Sub 


16.1 Individuazione di un gruppo di righe 


Un gruppo di righe viene definito un intervallo se sono una accanto all'altra e per fare riferimento alle 
righe in un intervallo, tra le parentesi della collezione Rows, si deve passare una stringa che 
corrisponda al numero della riga di una estremità, seguita da due punti, e seguito dal numero di riga 
dell'altra estremità. Rows(“2:6”) 


Le righe di un gruppo si qualificano come non adiacenti se non sono posizionate una accanto all'altra e 
per fare riferimento alle righe non adiacenti, si deve usare l'oggetto Range e usare una stringa da 
inserire nelle parentesi che rappresenta il numero di ogni riga seguita da due punti, e seguita dallo 
stesso numero di riga. Queste combinazioni sono separate da virgole. Range(“3:3, 5:5, 8:8”) 
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16.2 Selezione di una riga 


E’ possibile selezionare una riga o un gruppo di righe utilizzando il mouse, la tastiera, o una 
combinazione di entrambi. Per selezionare una riga con il mouse, si posiziona il cursore su 
un'intestazione di riga e si trasforma in una freccia rivolta verso destra, quindi basta clic sulla riga 


9 È inoltre possibile utilizzare solo la tastiera per selezionare una riga, 
10 assicurandosi che una cella sul lato destro sia selezionata, premere e tenere 
premuto il tasto Shift e contemporaneamente premere la barra spaziatrice e 


- . . l . . x . 

rilasciare il tasto Maiusc. Per supportare la selezione la classe Rows è dotata di 
ul un metodo denominato Select e per selezionare una riga utilizzando codice 
VBA, si deve accedere a una riga utilizzando i riferimenti che abbiamo visto in 
13 


precedenza e richiamare il metodo Select. Rows(6:6).Select 


Abbiamo anche visto che si potrebbe fare riferimento a una riga utilizzando l'oggetto Range, basta 
richiamare il metodo Select dopo l'accesso alla riga. Range(“4:4”).Select 


16.3 Selezione di un gruppo di righe 


È anche possibile selezionare più di una riga sia utilizzando il mouse, la tastiera, o una combinazione di 
entrambi. Per selezionare un intervallo di righe con il mouse, si deve cliccare su una intestazione di riga 
e tenere premuto il mouse verso il basso (il cursore assume la forma di una croce bianca), quindi 
trascinare nella direzione del campo. 


Per selezionare più righe utilizzando solo la tastiera, si seleziona la riga di partenza e tenendo premuto 
iltasto Maiusc, premere il tasto freccia su o il tasto freccia giù. Una volta selezionato l'intervallo di 
righe, si rilascia il tasto Maiusc. È inoltre possibile utilizzare una 
combinazione di mouse e tastiera per selezionare una o più righe. Per 
selezionare un intervallo di righe utilizzando una combinazione di mouse e 
tastiera, si sceglie una riga col mouse e si tiene premuto il tasto Shift, quindi 
si sceglie la riga all'altra estremità dell'intervallo e si rilascia il mouse. 


Per selezionare righe a caso utilizzando una combinazione di mouse e 
tastiera, si deve cliccare su una intestazione di riga, e tenendo premuto il 
tasto Ctrl si clicca su ogni intestazione di riga desiderata. Dopo aver 
selezionato le righe desiderate, si rilascia il mouse. Ogni riga selezionata 
sarà evidenziata 


Per selezionare un intervallo di righe utilizzando il codice, si deve fare 
riferimento al metodo Range, quindi richiamare il metodo Select Ecco un 
esempio che seleziona le righe da 2 a 6: Rows(“2:6”).Select 


1 
2 
3 
4 
5 
6 
7 
8 
9 


Per selezionare righe non adiacenti, si deve fare riferimento al metodo Select. Ecco un esempio che 
seleziona le righe 3, 5 e 8: Range(“3:3, 5:5, 8:8”).Select 


Per selezionare tutte le righe di un foglio di lavoro, si utilizza il metodo Select abbinandolo al metodo 
Rows. Ecco un esempio: Rows.Select 
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16.4 Altezza delle righe 


L'altezza di una riga è data dalla distanza della parte superiore dai bordi inferiori della riga e ci sono 
varie tecniche che è possibile utilizzare per modificare l'altezza di una riga. Per 


ica cli at 


modificare manualmente l'altezza di una riga, si deve posizionare il mouse sul 
bordo inferiore che separa dalla riga successiva, il mouse si trasformerà come 
in Figura a lato, e poi si deve cliccare e trascinare verso l'alto o verso il basso 
fino a raggiungere l'altezza desiderata, quindi rilasciare il mouse. 


È inoltre possibile ridimensionare un gruppo di righe, in primo luogo, si devono selezionare le righe 
come abbiamo descritto in precedenza e poi posizionare il mouse sul bordo inferiore di una delle righe 
selezionate e cliccare e trascinare verso l'alto o verso il basso fino ad ottenere l'altezza desiderata. 


Quindi rilasciare il mouse. 


Oppure si può modificare l'altezza di una riga cliccando sull'intestazione della riga e seguire il percorso 
dalla barra multifunzione Home — Celle - Formato e cliccare su Adatta Altezza righe 


[e = | 

&F Inserisci > >> ” Lo 

px Elimina * NI ” | 
Ordina e 


1) Fompto= l filtra» 


Dimensioni celle 
IL Altezza righe 
Adatta altezza nghe 
Larghezza colonne.. 
Adatta larghezza colonne 
Larghezza predefinita 
Visibilità 
Nascondi e scopri 
Organizza fogli 


Rinomina foglio 


Sposta o copia foglio... 


Colore linguetta scheda 


Frotezione 


Blocc 


Formato celle... 


) 


se 


È possibile utilizzare una finestra di dialogo per impostare 
esattamente all'altezza desiderata di una riga o di un gruppo di righe. 
Per specificare l'altezza di una riga si deve cliccare con il pulsante 
destro del mouse sull'intestazione della riga e nel menu che appare 
clic su Altezza righe. Per specificare la stessa altezza per molte righe 
si deve selezionare un intervallo di righe, come abbiamo visto in 
precedenza, e cliccare con il pulsante destro del mouse su una riga 
(o una delle intestazioni di riga o all'interno della selezione) e poi 
cliccare su Altezza righe nel menu a discesa che appare. 


Per sostenere l'altezza di una riga, l'oggetto Row è dotato di una 
proprietà denominata RowHeight pertanto, per specificare a livello 
di codice l'altezza di una riga, si deve accedere alla riga utilizzando un 
riferimento, come abbiamo visto in precedenza, e accedere alla sua 
proprietà RowHeight assegnando il valore desiderato. Ecco un 
esempio che imposta l'altezza della riga 6 a 2,50 


Rows(6).RowHeight = 20 


16.5 Creazione di righe 


Sappiamo che Excel crea e mette a disposizione più di un milione di righe (dalla versione 2007 in poi) 
che è possibile utilizzare quando si lavora su un foglio di lavoro e, a volte, può essere necessario 
inserire una riga tra due righe esistenti. 
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Quando si aggiunge una nuova riga, Excel elimina l'ultima riga per 
mantenere il conteggio totale delle righe, e per inserire solo una nuova 
riga sopra uno esistente, si deve cliccare con il pulsante destro del 
mouse sull'intestazione della riga che sarà al di sotto della nuova che si 
desidera aggiungere e cliccare su Mserisci dal menu a discesa che 
compare, oppure cliccare sull'intestazione della riga o qualsiasi casella 
sul lato destro e dal percorso della barra multifunzione, Home — Celle - 
Inserisci e cliccare su Righe e dal menu a discesa che appare scegliere 


Inserisci foglio 


Inserisci righe foglio 


E possibile aggiungere una nuova riga usando il codice VBA, sfruttando la classe Rows che è dotata di 
un metodo denominato Insert, pertanto, per aggiungere una riga di codice, si deve fare riferimento alla 
riga che si posizionerà al di sotto della nuova e chiamare il metodo Insert. Ecco un esempio: 
Rows(3).Insert 


Per aggiungere più di una riga, sia adiacenti che non adiacenti, si devono seguire i metodi poco sopra 
esposti, ricordando che la nuova si verrebbe a creare al di sotto delle righe selezionate. Per aggiungere 
nuove righe a livello di programmazione, si deve fare riferimento alle righe interessate e richiamare il 
metodo Insert. Ecco un esempio che aggiungerà nuove righe nelle posizioni 3, 6, e 10 

Range(“3:3, 6:6, 10:10).Insert 


16.6 Eliminare una riga 


Per eliminare una riga si deve cliccare con il pulsante destro del mouse sull'intestazione della riga e fare 
clic su Elimina nel menu a discesa che appare, oppure dalla barra multifunzione, seguendo il 
percorso Home — Celle - Elimina quindi dal menu a discesa che appare cliccare su Elimina righe foglio 


im sic 
EF Inserisci > 


EP Elimina > [I . | Persupportare la rimozione riga via codice, la classe Row è dotata di un 
metodo chiamato Delete che non necessita di alcun argomento per 
individuare la riga. Sulla base di questo, per eliminare una riga, si deve 
accedere utilizzando un riferimento come abbiamo visto prima, e 
Elimina colonne foglio richiamare il metodo Delete. Ecco un esempio che cancella la riga 3 
Elimina foglio Rows(3).Delete 


Ea Elimina celle... 


Elimina righe foglio 


Naturalmente, è possibile utilizzare anche l'oggetto Range per fare riferimento alla riga. Per cancellare 
più di una riga, prima si devono selezionare e seguire i percorsi sopra esposti, mentre per eliminare un 
gruppo di righe via codice si utilizza l’Oggetto Range in questo modo: Range(“3:3, 6:6, 10:10).Delete 
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Dimensioni celle 

HR Altezza righe... 
Adatta altezza righe 

1] Larghezza colonne... 
Adatta larghezza colonne 
Larghezza predefinita... 

Visibilità 


Nascondi e scopri 
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Per nascondere una riga si deve selezionare la riga e fare clic su 
Nascondi dal menu a discesa che compare, oppure seguire il percorso 
dalla barra multifunzione Home — Celle - Formato, quindi cliccare sulla 
voce Nascondi e Scopri e dal menu a discesa che appare cliccare su 
Nascondi righe 


Per nascondere una riga via codice, si deve selezionare, quindi usare la proprietà EntireRow. Ecco un 


esempio che nasconde la riga 6 


Private Sub Prova() 
Rows(“6:6).Select 


Selection.EntireRow.Hidden = True 


End Sub 


Allo stesso modo, per nascondere un gruppo di righe, prima si deve selezionare il Range, quindi usare il 
comando Selection.EntireRow.Hidden = True, mentre per mostrare le righe nascoste basta cambiare il 
valore assegnato da TRUE a FALSE 
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17. Le Celle di un foglio di lavoro 


Un foglio di calcolo è una serie di intersezioni verticali denominate colonne e orizzontali chiamate righe 
e un foglio è fatto di colonne e righe, che si intersecano, l'intersezione di una colonna e una riga crea 
un rettangolo chiamato cella: 


Quando si avvia Excel, vengono create 16.384 
colonne e 1.048.576 righe (dalla versione 2007 in 
poi) e come risultato, in un foglio elettronico 
Colonna avremmo a disposizione 17.179.869 (16,384 * 
1.048.576) celle disponibili a cui è possibile 
accedervi utilizzando il mouse cliccando su una 
cella o con la tastiera premendo un tasto freccia. 
È inoltre disponibile un menu a più parti cliccando 
col tasto destro del mouse su una cella 


00 KU UN 


Taglia 

Copia 

Opzioni Incolla: 

G & (a 

Troni Quando si utilizza un foglio di calcolo, per esempio quando si 
immettono le informazioni in esso, in realtà si sta lavorando su 


Inserisci... 

Dial una cella, pertanto, in qualsiasi momento, si deve sempre 

Caricella contenuto essere in grado di identificare la cella che si sta utilizzando e per 
facilitare tale informazione, ogni cella ha un indirizzo, ottenuto 

Filtro dalla combinazione dell'etichetta della sua colonna e della sua 

Celia riga, noto anche come nome primario della cella. 


Inserisci commento 


Formato celle... 


Seleziona da elenco a discesa... 


efinisci nome... 


17.1 Posizione di una cella 


La combinazione del nome della colonna e l'etichetta della riga fornisce l'indirizzo o il nome di una cella 
e quando si clicca su una cella, la sua intestazione di colonna e di riga vengono evidenziate, inoltre per 
conoscere il nome (o indirizzo) di una cella, è possibile fare riferimento al Box, che si trova all'incrocio 
superiore sinistro tra colonne e righe 


Ogni volta che si lavora con le celle, e una di loro è selezionata i bordi appaiono più spessi rispetto alle 
altre celle, in questo modo la cella viene indicata come cella attiva. Per identificare visivamente la cella 
attiva, si può solo guardare la zona di lavoro e individuare la cella con bordi spessi. Nella schermata 
sotto riportata, la cella attiva è DS e In VBA, la cella attiva è rappresentato da un oggetto 

denominato ActiveCell. 
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Prima di fare qualsiasi cosa su una cella, è 
necessario essere in grado di identificare o 
riconoscere la cellula, per fare questo 
visivamente, si può solo guardare, e individuare, 
la cella desiderata, ma per identificare a livello di 
programmazione una cella, si hanno diverse 
opzioni. È possibile identificare una cella 
utilizzando l'oggetto Range, a tale scopo, nelle 
parentesi dell'oggetto, si passa una stringa 
contenente il nome della cella. Ecco un esempio 
che fa riferimento alla cella situata come DE: 


Workbooks.Item(1).WorkSheets.ltem(“Foglio1).Range(“D6”) 


Per ottenere un riferimento a una cella, si dichiara una variabile di tipo Range e per inizializzare la 
variabile, si individua la cella e si assegna alla variabile utilizzando l'operatore Set. Ecco un esempio: 


Dim cella As Range 
Set cella = Workbooks.Item(1).WorkSheets.Item(“Foglio1).Range(“D6”) 


Le celle sono indicate come adiacenti quando si toccano e per fare riferimento a un gruppo di celle 
adiacenti, tra parentesi dell'oggetto Range, si passa una stringa che corrisponde all'indirizzo della cella 
che sarà sull'angolo, superiore sinistro seguito da due punti, seguito dall'indirizzo della cella posta 
nell'angolo inferiore destro. Ecco un esempio: Range(“B2: H6”) 


È possibile utilizzare questa stessa tecnica per fare riferimento a una cella, a tale scopo, si utilizza lo 
stesso indirizzo della cella da entrambi i lati dell’indirizzo. Ecco un esempio: Range(“D4:D4”) 


Invece di riferirsi ad un gruppo di celle adiacenti, è possibile fare riferimento a più di un gruppo di celle 


non adiacenti, Per fare questo, passare una stringa al Campo all'oggetto. Nella stringa, creare ogni 
intervallo come si vuole, ma separarli con virgole. Ecco un esempio: Range(“D2:B5, F8:114”) 


17.2 Selezione di celle 


Prima di fare qualsiasi cosa su una cella o un gruppo di celle, è necessario innanzitutto selezionarle, e la 
selezione delle celle è quasi equivalente a evidenziare una parola in un documento di testo. Vari mezzi 
sono disponibili per selezionare una cella o un gruppo di celle, è possibile utilizzare il mouse, la tastiera, 
o una combinazione di mouse e tastiera. Vediamo alcuni esempi: 


v Per selezionare una cella usando il mouse, è sufficiente cliccare su di essa 

v Per selezionare una cella utilizzando la tastiera, in quanto potrebbe essere necessario spostare 
lo stato attivo da una cella attiva a un'altra, premere i tasti freccia fino a selezionare la cella 
desiderata 

v Per selezionare una cella in base al suo nome con il mouse e la tastiera, fare clic nella casella 
Nome e digitare il nome o l'indirizzo della cella 

v Per selezionare la prima cella del documento utilizzando solo la tastiera, premere Ctrl + Home 


Per supportare la selezione di celle, l'Intervallo oggetto è dotato di un metodo denominato Select, 


pertanto, per selezionare una cella in programmazione, dopo il riferimento cella, si richiama il metodo 
Select. Ecco un esempio: Range(“D6”).Select 
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Dopo aver selezionato una cella, viene memorizzato in un oggetto denominato Selection ed è possibile 

utilizzare questo oggetto per eseguire un'azione sulla cella che è attualmente selezionata. Invece di una 
sola cella, si consiglia di eseguire un'operazione comune in molte celle, il che significa che è necessario 

selezionarle prima. È possibile selezionare le celle basate su colonne o su file ed è possibile selezionare 

le celle in una determinata regione; vale a dire, le celle adiacenti, oppure celle non adiacenti 


Esempio: Per selezionare tutte le celle di una colonna 


v_ Si deve cliccare sull'intestazione della colonna 

v Oppure digitare il nome di una cella della colonna nella casella Nome e premere Invio, quindi 
premere il tasto Ctrl + barra spaziatrice 

v_ Per selezionare tutte le celle di una serie di colonne adiacenti, si seleziona una colonna e si 
trascina il mouse nella direzione voluta tenendo premuto il tasto, una volta che la selezione è 
completa rilasciare il tasto del mouse 


o0ILUDÈOUAaAUIUNIE 


Esempio: Per selezionare tutte le celle di una riga: 


Si deve cliccare sull'intestazione di riga 

v Oppure digitare il nome della cella di quella riga nella casella 
Nome e premere Invio e poi premere Shift + barra spaziatrice 

v_ Per selezionare tutte le celle di una serie di righe, si seleziona 
la riga e si trascina il mouse nella direzione voluta tenendo 
premuto il tasto, una volta che la selezione è completa 
rilasciare il tasto del mouse 


1 
2 
3 
4 
5 
6 
7 
8 


Esempio: Per selezionare le celle nella stessa regione 


v Si deve cliccare su una cella e tenendo premuto il mouse sulla cella si trascina verso il basso o 
verso l'alto, a sinistra o a destra, fino all'ultima cella dell'intervallo 

v_ Se siutilizza la tastiera, si deve premere i tasti freccia fino a selezionare la cella voluta che sarà 
in un angolo e tenendo premuto il tasto Shift, premere i tasti freccia sinistra, destra, in alto o in 
basso fino a raggiungere l'angolo opposto dell'intervallo e rilasciare il tasto Shift. 


Per selezionare le celle non adiacenti, si deve cliccare su una delle 
celle e tenendo premuto il tasto Control si selezionano le celle 
desiderate, una volta che la selezione è completa, rilasciare Ctrl 
Per selezionare tutte le celle di un foglio di lavoro, è possibile 
premere Ctrl + A, in alternativa, è possibile cliccare sul pulsante nel 
punto di intersezione della intestazione di riga e di colonna 


Per selezionare a livello di codice un gruppo di celle adiacenti, si 
deve fare riferimento al gruppo con le tecniche che abbiamo visto in precedenza, quindi richiamare il 
metodo Select, mentre per selezionare a livello di codice tutte le celle di una colonna, si deve accedere 
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alla colonna e usare il nome della colonna come stringa, quindi richiamare il metodo Select. Ecco un 
esempio: Columns(4).Select 


Per eseguire questa operazione utilizzando il nome di una colonna, si deve usare quel nome come 
argomento. Ecco un esempio che seleziona tutte le celle della colonna ADH: Columns(“ADH”).Select 


È possibile eseguire questa operazione utilizzando l'oggetto Range immettendo il nome della colonna, 
seguito da due punti, seguito dal nome della colonna stessa. Ecco un esempio: Range(“G:G”).Select 


Per selezionare a livello di programmazione tutte le celle che appartengono a un gruppo di colonne 
adiacenti, si deve inserire tra le parentesi della colonne il nome della prima colonna da un lato, seguito 


da due punti ":" e poi il nome della colonna che all'altra estremità. Columns(“D:G”).Select 


Per selezionare le celle che appartengono a un gruppo di colonne non adiacenti, utilizzando la tecnica 
che abbiamo visto in precedenza per fare riferimento alle colonne non adiacenti, quindi richiamare il 
metodo Select. Ecco un esempio: Range(“H:H, D:D, B:B”).Select 


Per selezionare a livello di programmazione tutte le celle che appartengono a una riga, accedere a una 
riga, quindi richiamare il metodo Select. Ecco un esempio: Rows(6).Select. È anche possibile utilizzare 
l'oggetto Range, dopo l'accesso alla riga, si richiama il metodo Select. Range(‘4:4”).Select 


Per selezionare tutte le celle che appartengono a un intervallo di righe, si fa riferimento all'oggetto 
Range e richiamare il metodo Select: seleziona tutte le celle alle righe da 2 a 6: Rows(‘2:6”).Select 
Per selezionare tutte le celle che appartengono a righe non adiacenti, si fa riferimento alle righe e si 
richiama il metodo Select: seleziona tutte le celle delle righe 3, 5 e 8: Range(‘3:3, 5:5, 8:8”).Select 


Per selezionare le celle nella stessa regione, si inserisce l'intervallo come stringa nell'oggetto Range 
Range(“B2:H6”).Select. Ricordate che è possibile utilizzare la stessa tecnica per fare riferimento a una 
sola cella e selezionarla. Range(“D4:D4”).Select. Per selezionare più di un gruppo di celle non adiacenti, 
si deve fare riferimento alla combinazione come abbiamo visto in precedenza e richiamare il metodo 
Select. Ecco un esempio: Range(“D2:B5, F8:114).Select. Per selezionare tutte le celle di un foglio di 
calcolo, è possibile richiamare il metodo Select Rows.Select 


Al posto delle righe, è possibile utilizzare le Colonne e si otterrebbe lo stesso risultato. Dopo aver 
selezionato un gruppo di celle, il gruppo viene memorizzato in un oggetto denominato Selection. È 
possibile utilizzare questo oggetto per intraprendere un'azione comune in tutte le celle che sono 
attualmente selezionate. Sappiamo che ognuno ha un nome fatto della combinazione del nome della 
colonna e il nome di una riga, se si desidera, è possibile modificare il nome di una cella, oppure è anche 
possibile creare un nome per un gruppo di celle. 


Per conoscere o definire il nome di una cella, è possibile controllare la Casella Nome agendo 
(£) in questo modo: Cliccare sulla cella, e nella casella nome, inserire il nome e premere INVIO, 
Oppure sulla barra multifunzione, fare clic su Formule — Definisci Nomi, cliccare su Definisci 
nome e nella casella di testo Nome della finestra di dialogo Nuovo nome, digitare il nome desiderato e 
cliccare su OK 
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Oppure cliccare sulla barra multifunzione, su Formule — Definisci Nomi e nella finestra di dialogo Nuovo 
nome, nella casella di testo Nome, digitare il nome desiderato, nella casella combinata Ambito, 
accettare o specificare la cartella di lavoro, nella casella di testo Commento, digitare alcune parole se 

. volete e nel campo Riferito a cliccare sul pulsante di 
Nuovo nome 2 ® destra, verrete riportati nella cartella di lavoro, 
selezionate la cella e cliccare poi di nuovo sul 
pulsante della finestra di dialogo e cliccare su OK 


Nome: Proval 


Ambito: Cartella di lavoro [e] 


Commento: | prova definizione nome di cella] Oppure dalla barra multifunzione, cliccare 

su Formule — Gestione Nomi e nella finestra di 
dialogo Gestione nomi, cliccare su Nuovo e si ripete 
quanto sopra specificato 


Riferito a: =Foglio1!SCS3 


Abbiamo già visto che, per fare riferimento a una 
cella utilizzando il suo nome, è possibile passare quel 
nome come stringa al Campo dell'oggetto. Ora 
sappiamo come selezionare un gruppo di celle e se si seleziona più di una cella, il nome della prima 
cella viene visualizzato nella casella Nome. Nella maggior parte delle operazioni, questo non può essere 
utile, soprattutto se si desidera eseguire la stessa operazione su tutte le celle della selezione. 


Fortunatamente, Excel consente di specificare un nome comune per il gruppo di celle selezionate in 
questo modo: Selezionare le celle con le tecniche che abbiamo visto in precedenza e nella casella 
nome, sostituire la stringa con il nuovo nome, Oppure selezionare le celle e dalla barra multifunzione, 
cliccare su Formule - Definisci Nomi e nella casella di testo Nome della finestra di dialogo Nuovo nome, 
digitare il nome desiderato e cliccare su OK. Dopo aver creato un nome per un gruppo di celle, si può 
fare riferimento a quelle celle che utilizzano il nome, utilizzando l’oggetto Range e passare il nome 
come stringa. Range(“pippo”).Select 
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18. Metodi e Proprietà per gestire le righe del foglio di lavoro 


In VBA sarà spesso necessario fare riferimento a una cella alla fine di un blocco, ad esempio, per 
determinare l'ultima riga utilizzata in un intervallo. La struttura finale è utilizzata con riferimento a un 
oggetto Range e restituisce la cella che si trova alla fine della regione in cui il range di riferimento è 
contenuto in una determinata direzione, ed è simile a premere CTRL + freccia SU’, CTRL + freccia GIÙ, 
CTRL + freccia Sinistra o CTRL + freccia Destra. 


18.1 La proprietà Range.End 


La proprietà End restituisce, la prima cella piena che incontra partendo da una cella vuota, oppure 
restituisce l’ultima cella piena se parte da una cella piena e possiede 4 argomenti che indicano la 
direzione di ricerca che sono i seguenti: 


xIUp: Direzione in Alto 
xIDown: Direzione in Basso 
xIToRight: Direzione a Destra 
xIToLeft: Direzione a Sinistra 


La sintassi è la seguente: RangeObject. End (Direction). È necessario specificare l'argomento Direction, 
che indica la direzione di movimento, per esempio . End (x/Down) indica lo spostamento verso il basso, 
mentre . End (xIToRight) indica lo spostamento verso destra. 


End (xIUp) è uno dei metodi più comunemente utilizzati per determinare l'ultima riga utilizzata, 
contenente dei dati .Rows.Count restituisce l'ultima riga del foglio di lavoro, se consideriamo che Excel 
2007 dispone di 1.048.576 righe, l'istruzione .Cells (Rows.Count, "B") restituisce la cella B1048576, vale 
a dire l’ultima cella della colonna B, e il codice parte da questa cella e scorre tutta la colonna verso 
l'alto fino a trovare una cella che contiene dei dati 


Sub ultima_1() ‘determinare l’ultima riga con i dati in una colonna 
Dim ultimaR As Long 

ultimaR = ActiveSheet.Cells(Rows.Count, "B").End(xIUp).Row 
MsgBox ultimaR 

End Sub 


Sub ultima_2() 

Dim ultimaR As Long 

ultimaR = ActiveSheet.Range("B" & Rows.Count).End(xIUp).Row 
MsgBox ultimaR 

End Sub 


Sub ultima_2() ‘determinare l’ultima colonna con i dati 

Dim ultimaC As Integer 

ultimaC = ActiveSheet.Cells(2, Columns.Count).End(xIToLeft).Column 
MsgBox ultimaC 

End Sub 


Per restituire l'intervallo utilizzato in un foglio di lavoro, si utilizza la proprietà Worksheet.UsedRange 
che presenta la seguente sintassi. WorksheetObject.UsedRange e include anche le celle formattate 
con dati o celle con dati il cui contenuto è stato eliminato, e in questo caso potrebbe includere 
apparentemente celle vuote visibili. Ad esempio, se si applica il formato data a una cella, in questo 
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caso, cancellare il contenuto e la formattazione potrebbe non essere sufficiente per re-impostare la 
riga o cella e in questo caso si dovrà eliminare la riga. 


Sub ultima_4() 

Dim ultimaR As Long 

ultimaR = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count 
MsgBox ultimaR 

End Sub 


Sub ultima_7() ‘Trovare l’ultima colonna con UsedRange 

Dim ultimaC As Integer 

ultimaC = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column 
MsgBox ultimaC 

End Sub 


Sub prova_RU() ‘Contare il numero di righe utilizzate con UsedRange 
Dim rigaU As Long 

rigaU = ActiveSheet.UsedRange.Rows.Count 

MsgBox rigaU 

End Sub 


Sub prova_CU() ‘Contare il numero di colonne utilizzate con UsedRange 
Dim colonnaU As Integer 

colonnaU = ActiveSheet.UsedRange.Columns.Count 

MsgBox colonnaU 

End Sub 


Sub prima_RU1() ‘Trovare la prima riga utilizzata con UsedRange 
Dim primaR As Long 

primaR = ActiveSheet.UsedRange.Cells(1).Row 

MsgBox primaR 

End Sub 


18.2 La Proprietà Row e Column 


Per restituire il numero della prima riga in un intervallo, si utilizza la proprietà Range.Row e se 
l'intervallo specificato contiene più aree, restituirà il numero della prima riga della prima area. 
Sintassi: RangeObject.Row. Per restituire il numero della prima colonna in un intervallo, si utilizza la 
proprietà Range.Column e se l'intervallo specificato contiene più aree, questa restituirà il numero della 
prima colonna nella prima area. La sintassi è: RangeObject.Column 


‘Applicare il colore giallo a tutte le righe dell’intervallo B2:D4 

Worksheets ("Foglio1"). Range ("B2: D4"). Rows.Interior.Color = vbYellow 
‘Applicare il colore verde alla prima riga del range B2:D2 

Worksheets ("Foglio1"). Range ("B2: D4"). Row (1) Interior.Color = vbGreen 


Se l'oggetto specificato contiene più zone, le righe della prima area verranno restituite da questa 
proprietà. Prendiamo l'esempio di 2 aree in cui la prima area sarà "B2: D4" e la seconda sarà "F3: G6", il 


seguente codice applica il colore rosso alle celle della prima riga della prima area (B2:D4) 


Worksheets ("Foglio1").Range ("B2: DA, F3: G6"). Row (1) Interior.Color = vbRed 
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‘ Applicare il colore giallo a tutte le colonne dell'intervallo specificato, cioè B2:D4 
Worksheets ("Foglio1"). Range ("B2: D4"). Columns.Interior.Color = vbYellow 
‘Applicare il colore verde alla prima colonna del range B2:B4 

Worksheets ("Foglio1"). Range ("B2: D4"). Columns.Interior.Color = vbYellow 


Se l'oggetto specificato contiene più zone, le colonne della prima area verranno restituite solo da 
questa proprietà. Per esempio se abbiamo 2 aree nell'intervallo specificato, e la prima area sarà "B2: 
D4" mentre la seconda area sarà "F3: G6", il seguente codice applica il colore rosso alle celle dalla 
prima colonna della prima area alle celle da B2 a B4 


Worksheets ("Foglio1"). Range ("B2: DA, F3: G6"). Columns (1) Interior.Color = vbRed 


Sub ultimaR1() ‘Utilizzare la proprietà End (xIDown) per determinare l’ultima riga 
Dim ultimaR As Long 

ultimaR = ActiveSheet.Range("D2").End(xIDown).Row 

MsgBox ultimaR 

End Sub 


Sub ultima8() ‘Utilizzare End (xIToRight) per determinare l’ultima colonna 
Dim ultimaC As Integer 

ultimaC = ActiveSheet.Range("C4").End(xIToRight).Column 

MsgBox ultimaC 

End Sub 


18.3 Il metodo Find 


Il metodo Find restituisce l’ultima riga con i dati in un foglio di lavoro. In caso di un foglio di lavoro 
vuoto darà un errore di run-time. Per cercare un articolo specifico o un valore in un intervallo, si utilizza 
il metodo Find che restituisce il Range, vale a dire, la prima cella, dove si trova l'elemento o valore. Se 
non viene trovata alcuna corrispondenza, restituisce Nothing. 


18.4 L’istruzione SearchDirection 


È possibile specificare l'argomento x/Next per indicare di eseguire ricerche verso il basso (cioè al valore 
corrispondente successivo) o x/Previous per ricerche verso l'alto o all'indietro (cioè al valore 
corrispondente precedente) nel campo di ricerca. Il valore predefinito è xINext. Se si specifica 

After: = Range ("A13"), in cui il campo di ricerca è il Range ("A1: A20") e si imposta la direzione di 
ricerca in SearchDirection: = xINext, allora la funzione di ricerca inizierà a cercare dalla cella A14 fino 
alla A20 per poi ricercare dal Range ("A1") fino al Range ("A13”) 


Sub prova4() ‘Il metodo SpecialCells per trovare l’ultima riga 
Dim ultimaR As Long 

ultimaR = ActiveSheet.Cells.SpecialCells(xICellTypeLastCell).Row 
MsgBox ultimaR 

End Sub 
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18.5 Il metodo Range.SpecialCells 


Si utilizza il metodo Range.SpecialCells con la sintassi RangeObject.SpecialCells (Type, Value), dove 
l'argomento type specifica il tipo di cella come costanti X/CellType, da restituire ed è obbligatorio 
specificare questo argomento, mentre invece l'argomento Value è facoltativo e specifica i valori come 
per le costanti X/SpecialCellsValue, nel caso di x/CellTypeConstants o xICellTypeFormulas viene 
specificato nell'argomento Type. Non specificando l'argomento Value per impostazione predefinita 
vengono inclusi tutti i valori delle costanti o formule, nel caso di xICellTypeConstants o 
xICellTypeFormulas rispettivamente. Usando questo metodo viene restituito un oggetto Range, 
composto da celle corrispondenti agli argomenti type e value specificati 


xICellTypeAllFormatConditions: Si riferisce a tutte le celle con formattazione condizionale 
xICellTypeAllValidation: Fa riferimento alle celle che contengono una convalida 
xICellTypeBlanks: Si riferisce a celle vuote 

xICellTypeComments: Fa riferimento alle celle con commenti 

xICellTypeConstants: Fa riferimento alle celle che contengono costanti 
xICellTypeFormulas: Fa riferimento alle celle che contengono formule 

xICellTypeLastCell: Si riferisce all'ultima cella nell'intervallo utilizzato 
xICellTypeSameFormatConditions: Si riferisce a celle con lo stesso formato 
xICellTypeSameValidation: Si riferisce a celle con la stessa convalida 

xICellTypeVisible: Si riferisce a tutte le celle che sono visibili 


LARA RE 


Sub prova6() ‘Il Metodo SpecialCells per trovare l’ultima colonna 
Dim ultimaC As Integer 

ultimaC = ActiveSheet.Cells.SpecialCells(xICellTypeLastCell).Column 
MsgBox ultimaC 

End Sub 
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19. Range, Cells e Ciclo With 


Abbiamo visto come è strutturato un foglio di calcolo o cartella, abbiamo detto che è costituito da 
celle, intervalli e fogli, inoltre un insieme di celle è rappresentato da righe e colonne, ricordando che la 
maggior parte dei compiti che svolgiamo in un foglio di calcolo è quella di introdurre informazioni, 
tagliare e copiare dati o applicare opzioni di formattazione e tante altre funzioni che coinvolgono celle, 
righe o colonne, questo insieme è definito Range . Un Range può essere rappresentato da una singola 
cella o più celle da una colonna, una riga o una selezione di celle, il sistema più facile per identificarlo è 
proprio il comando Range che ha questa sintassi Object.Range(nome) 


Object : è un riferimento all'oggetto Worksheet che contiene il Range, se viene omesso VBA assume 
che si riferisca all’ActiveSheets (il foglio che abbiamo attivo) 

Nome : è un riferimento al Range o il nome del Range inserito come testo, infatti questo comando 
lavora anche con Range che hanno un nome, vediamo qualche esempio 


Worksheets("Foglio1").Range("A1").Value = 123 
‘oppure possiamo rappresentarlo come un insieme di celle in questo modo 
Worksheets("Foglio1").Range("A1:C5").Value = 123 


Possiamo usarlo anche con un nome assegnato agendo in questo modo : Selezioniamo un insieme di 
celle e dal Menu Inserisci - Nome - Definisci, come da immagine sotto 


Inserisci | Formato Strumenti Dati Finestra ? 


Righe 

Colonne 

Foglio di lavoro 
Grafico... 
Funzione... 


Immagine 


E ci comparirà un box come il seguente 


Detimsci nome 


Nomi nella cartella di lavoro: 


‘Pippo 


Riferito a: 
=Foglio1!$N$14:$0$32| 
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Per versioni di Excel superiori alla 2003 per assegnare un nome ad un intervallo di celle si 
(£) deve seguire il percorso Formule - Definiscinome come da immagine sotto stante e ci 
compare una finestra come la seguente 


FORMULE DATI REVISIONE VISUALIZZA S 


Nome: | 


rca e riferimento > E Definisci nome > 
Ambito: Cartella di lavoro 


ematiche e trigonometrichez Sf Usa nella formula > 


Gestione Commento: 


e funzioni > nomi ES Crea da selezione 


Nomi definiti 


Se abbiamo selezionato prima le nostre celle troveremo 
il loro riferimento nel campo Riferito a oppure possiamo 
cliccare sull'icona evidenziata dalla freccia rossa e 
procedere alla loro selezione, fatto questo dobbiamo 
solo inserire il nome dell'intervallo e cliccando su Aggiungi lo stesso comparirà nel box centrale così: 


Riferito a: |-Foglio1!SES4:$GS12 


l'Detimsci nome 
Nomi nella cartella di lavoro: 


proval 
pippo 


Riferito a: 
=Foglio1!$R$1:$U$21| 


A questo punto possiamo modificare il nostro listato in questo modo: 
Worksheets("Foglio1").Range("pippo").Value = 123 


Con il primo codice abbiamo riempito la cella A1 col valore 123, mentre col secondo abbiamo riempito 
un insieme di celle (dalla A1 alla C5) col valore 123, mentre assegnando un nome ad un intervallo di 
celle abbiamo riempito tutto l'intervallo col valore 123. Possiamo però dire anche che se siamo certi di 
operare nel foglio attivo posso omettere il riferimento Object e quanto abbiamo finora visto lo 
possiamo scrivere anche in questo modo 


v. Range("A1").Value = 123 (per la sola cella A1) 
v. Range("A1:C5").Value = 123 (per un intervallo di celle) 
v. Range("pippo").Value = 123 (utilizzando un nome di un intervallo di celle) 


Sempre sulla falsa riga di quanto appena citato possiamo ulteriormente semplificare il listato 
usando riferimenti assoluti in questo modo 


v. [A1] = 123 (per la sola cella A1) 


v. [A1:C5] = 123 (per un intervallo di celle) 
v. [pippo] = 123 (utilizzando un nome di un intervallo di celle) 
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Come abbiamo potuto vedere il comando Range è estremamente flessibile e lo useremo spesso per 
poter interagire con Excel da VBA ora vediamo come comportarci quando dobbiamo leggere in un 
foglio e scrivere in un altro. Molte volte abbiamo la necessità di scrivere in un foglio i nostri dati e 
poterli salvare in un altro foglio per successive consultazioni, useremo sempre l’enunciato Range, ma 
gli abbineremo anche altre funzioni come Cells e il ciclo With esponiamo ora brevemente la sintassi e 
l'utilizzo di questi due comandi 


19.1 L’enunciato Cells 


Anche se possiamo usare il comando Range per riattivare una singola cella il comando Cells 

esegue lo stesso compito ma con maggior flessibilità, quando dobbiamo scrivere o leggere dati in un 
foglio di calcolo direttamente da VBA con l’enunciato Range siamo sempre vincolati ad una locazione 
ben precisa che abbiamo appena visto e denominata dal riferimento di cella, ma non sempre sappiamo 
dove dobbiamo leggere e scrivere, in sostanza è abbastanza difficile usare il comando Range quando 
dobbiamo copiare un insieme di dati scritti in varie celle estese su righe o colonne. 


A questo problema si può ovviare usando il comando Cells, sintassi Object.Cells(riga,colonna) 

Per quanto riguarda il comando Object tralasciamo ulteriori spiegazioni in quanto vale quanto 

sopra esposto per il comando Range, noterete però che il riferimento al Range (nome) è espresso in 
coordinate di riga e colonna, questo ci permette di identificare una singola cella o un intervallo dalla 
loro posizione di riga e colonna, facciamo qualche esempio di identificazione di celle. 


A1 = Cells (1,1) 


B5 = Cells (5,2) 
D3 = Cells (3,4) 


19.2 Il Ciclo With 


VBA ci fornisce questa speciale struttura With .... End With che ci permette di fare riferimento alle 
proprietà o metodi che appartengono allo stesso oggetto senza dover specificare ogni volta il 
riferimento completo all'oggetto, bella come esposizione tecnica ma poco chiara vero? Esponiamo la 
sintassi del ciclo With e poi semplifichiamo il concetto con degli esempi, la sintassi è : 


With Oggetto 
Istruzioni 
End With 


Finora abbiamo parlato di Metodi e Proprietà e anche di Oggetti, abbiamo esposto l'oggetto 

Workbook (che è la cartella di lavoro cioè il nostro file), l'oggetto Worksheet (che è il foglio di lavoro) e 
l'oggetto Range ( intervallo di celle, A1: B12, C1:D12) nella definizione del ciclo With abbiamo detto che 
ci permette di omettere il riferimento completo all'oggetto (Workbook, Worksheet) quando le 
proprietà o i metodi che usiamo si riferiscono allo stesso oggetto, infatti basta dichiararlo una sola volta 
all’inizio della procedura With così il codice risparmia iltempo che necessita per risolvere il riferimento 
all'oggetto per ogni proprietà o metodo all’interno dell'istruzione With. 
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B Prendiamo come esempio i dati presenti in un foglio come in figura a lato. 
pippo Supponiamo di trovarci nel Foglio1 e vogliamo scrivere i nostri dati nel Foglio2, 
pluto per compiere questa operazione senza l'utilizzo del ciclo With dobbiamo 
utilizzare un listato del genere: 


paperino 
minni 
topolino 


Worksheets("Foglio2").Range("B1").Value = Worksheets("Foglio1").Range("B1").Value 
‘oppure 

Worksheets("Foglio2").Range("B1").Value = [B1].Value 

Sheets("Foglio2").[B1].Value = [B1].Value 


Ma così copiamo una singola cella, dobbiamo utilizzare un ciclo in questo modo 


Sub scrivi() 

riga=1 

Do Until Sheets("Foglio1").Cells(riga, 2) = Empty 
Sheets("Foglio2").Cells(riga, 2).Value = Sheets("Foglio1").Cells(riga, 2).Value 
riga =riga+1 

Loop 

End Sub 


Utilizzare una sintassi del genere permette di incrementare il contatore e scorrere tutti i dati presenti 
nel foglio di origine incrementando la riga del foglio di destinazione. Abbiamo utilizzato il comando 
Cells, in modo da identificare una cella ben precisa. In questo modo dobbiamo dichiarare sempre il 
riferimento completo sia del foglio di origine che del foglio di destinazione però possiamo fare così 


Sub scrivi_with() 
j=1 
Do Until Sheets("Foglio1").Cells(j, 2) = Empty 
With Sheets("Foglio2") 
.Cells(j, 2) = Sheets("Foglio1").Cells(j, 2).Value 
End With 
j=j+1 
Loop 
End Sub 


Apparentemente sembrano uguali, ma col ciclo With abbiamo evitato la dichiarazione dell'oggetto nel 
ciclo Do Loop, o meglio, lo abbiamo fatto una sola volta semplificando 


Sub scrivi_with() 
j=1 
Do Until Cells(j, 2) = Empty 
With Sheets("Foglio2") 
.Cells(j, 2) = Cells(j, 2).Value 
End With 

j=j+1 
Loop 
End Sub 
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20. Approfondimenti su Range, Cells, Item, Row e Columns 


È possibile fare riferimento o accedere a un Range del foglio di lavoro utilizzando le proprietà e i 
metodi dell'oggetto Range che si riferisce ad una cella o a un intervallo di celle, può essere una riga, 
una colonna o una selezione di celle comprendenti uno o più blocchi contigui di celle. Uno degli aspetti 
più importanti nella codifica vba fa riferimento a intervalli all'interno di un foglio di lavoro. 


20.1 La Proprietà Range 


Abbiamo detto che un oggetto Range si riferisce a una cella o a un intervallo di celle e può essere una 
riga, una colonna o una selezione di celle comprendenti uno o più blocchi contigui di celle. Un oggetto 
Range fa sempre riferimento a un foglio di lavoro specifico, e Excel attualmente non supporta gli 
oggetti Range che si sviluppano su più fogli di lavoro. Alcuni esempi di codice: 


Dim rng As Range ' Oggetto Range riferito a una singola cella 

Set rng = Range ("A1") 

Dim rng As Range ' Oggetto Range riferito ad un blocco di celle contigue 
Set rng = Range ("A1: C3") 

Dim rng As Range ' Oggetto Range riferito ad una riga 

Set rng = Rows (1) 

Dim rng As Range ' Oggetto Range riferito a più colonne 


Set rng = Columns ("A: C") 


‘Esempi di codice con il Metodo Union 

Dim rng1 As Range, rng2 As Range, rngUnion As Range 

‘impostare un blocco contiguo di celle come primo intervallo (o Range) 

Set rng1 = Range ("A1: B2") 

'impostare un altro blocco contiguo di celle come secondo intervallo 

Set rng2 = Range ("D3: E4") 

‘assegnare una variabile (oggetto range) per rappresentare l'unione dei due intervalli 
Set rngUnion = Union (rng1, rng2) 

'colore interno impostato per l'intervallo che è l'unione di 2 oggetti Range 
rngUnion.Interior.Color = vbYellow 


‘Esempi di codice con la proprietà Selection 
Range("A1:B2,D3:E4").Select 

‘impostare il colore di sfondo delle celle selezionate a giallo 
Selection.Interior.Color = vbYellow 
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20.2 La Proprietà Worksheet 


E’ possibile utilizzare solo l'argomento Cell1 e in questo caso dovrà essere un riferimento a un Range 
che può includere un operatore di intervallo (2 punti) o l'operatore di unione (virgola), o il riferimento a 
un intervallo che può essere un nome definito. Sintassi WorksheetObject.Range (Cell1, Cell2) 


Worksheets ("Foglio1"). Range ("A1") ‘si riferisce alla cella A1 
Worksheets ("Foglio1"). Range ("A1: B3") ‘si riferisce alle celle A1, A2, A3, B1, B2 e B3. 


Quando entrambi gli argomenti cell1 e cell2 vengono utilizzati (celll e cell2 sono oggetti Range), si 
riferiscono alle celle comprese tra l'angolo superiore sinistro e l'angolo inferiore destro del Range, cioè 
le celle iniziali e finali del Range, e gli argomenti possono essere una singola cella, un'intera riga o 
colonna o una singola cella denominata. Un esempio di utilizzo di questo tipo di riferimento è 
Worksheets ("Foglio1"). Range (Cells (1, 1), Cells (3, 2)) 


Utilizzando il codice Range ("A1") verrà restituita la cella A1 del foglio attivo, come se si utilizza la 
sintassi Application.Range ("A1") o ActiveSheet.Range ("A1") 


20.3 La Proprietà Range 


Per accedere a un Range relativo a un intervallo: Sintassi RangeObject.Range (Cell1, Cell2) esempio: 


Worksheets("Foglio1").Range("C5:E8").Range("A1") ‘fà riferimento al Range ("C5") 
Worksheets("Foglio1").Range("C5:E8").Range("B2") ‘fà riferimento al Range ("D6") 


Rispetto ad utilizzare la proprietà Range, è possibile utilizzare anche un codice breve per fare 
riferimento a un intervallo utilizzando le parentesi quadre per racchiudere un riferimento di tipo “A1” o 
un nome. Durante l'utilizzo delle parentesi quadre, non si racchiude l'intervallo tra virgolette per 
renderlo una stringa. Utilizzando le parentesi quadre è come applicare il metodo Evaluate dell'oggetto 
Application, in cui la proprietà Range o il metodo Evaluate utilizzano un argomento stringa che 
permette di manipolare la stringa con codice VBA. Esempi: utilizzando 


[A1]. Value = 5 ‘è equivalente all'utilizzo di 

Range ("A1"). Value = 5 ‘mentre usando 

[A1: A3, B2: B4, C3: DS]. Interior.Color = vbRed ‘equivale a 

Range ("A1: A3, B2: B4, C3: D5"). Interior.Color = vbRed ‘e con intervalli denominati come: 
[pippo] .Interior.Color = vbBlue ‘equivale a 


Range ("pippo"). Interior.Color = vbBlue. 


Utilizzando le parentesi quadre si consentono solo riferimento a intervalli fissi, mentre invece usando la 
proprietà Range si permette di manipolare l'argomento stringa con codice VBA in modo che è possibile 
utilizzare delle variabili per fare riferimento a un Range dinamico, come illustrato di seguito: 


Sub RangeDinamico () 

Dim i As Integer ‘si inserisce Ciao nelle celle da 1 a 5 della colonna B 
Fori=1T05 

Range ("B" & i) = "Ciao" 

next i 

End Sub 
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20.4 La Proprietà Cells 


Restituisce un oggetto Range riferito a tutte le celle di un foglio di lavoro o a un intervallo, in quanto 
può essere utilizzata con riferimento ad un oggetto Application, a un oggetto foglio di lavoro o un 
oggetto Range. La proprietà Application.Cells si riferisce a tutte le celle del foglio di lavoro attivo ed è 
possibile utilizzare Application.Cells nel codice o omettere il qualificatore di oggetto e utilizzare il 
codice per riferirsi a tutte le celle del foglio di lavoro attivo. La proprietà Worksheet.Cells ha la 
seguente sintassi. WorksheetObject.Cells e si riferisce a tutte le celle di un foglio specificato, 
utilizzando il codice Worksheets ("Foglio1"). Cells si fa riferimento a tutte le celle di Foglio1. 
Utilizzando la struttura Range.Cells ci si riferisce alle celle in un intervallo specificato, 

Sintassi. RangeObject.Cells. 


Questa proprietà può essere utilizzata come Range ("A1: B5").Cells, ma utilizzando le celle come nome 
intervallo in questo caso è irrilevante perché con o senza questa dicitura il codice farà riferimento al 
Range A1: BS. Per fare riferimento a una cella specifica, si deve utilizzare la Proprietà Item dell'oggetto 
Range, specificando la riga relativa e le posizioni delle colonne dopo la parola chiave Cells, vale a dire, 


Worksheets ("Foglio1"). Cells.Item (2, 3) ‘si riferisce al Range C2 e 
Worksheets ("Foglio1"). Range ("C2"). Cells (2, 3) ‘farà riferimento al Range E3. 


Poiché la proprietà Item è la proprietà predefinita del oggetto Range è possibile omettere questa 
istruzione utilizzando questo codice 


Worksheets ("Foglio1"). Cells (2, 3) ‘si riferisce anche al Range C2. 
‘si può preferire in alcuni casi utilizzare 

Worksheets ("Foglio1"). Cells (2, 3) ‘rispetto a 

Worksheets ("Foglio1"). Range ("C2") 


20.5 La Proprietà Item 


Si deve utilizzare la proprietà Range.ltem per restituire un intervallo come offset nell'intervallo 
specificato Sintassi RangeObject.Item (RowIndex, ColumnIndex) . È necessario specificare 
l'argomento Rowlndex mentre ColumnIndex è opzionale. RowIndex è il numero di indice della cella, 
partendo da 1 e crescente da sinistra a destra e poi verso il basso. 


Worksheets ("Foglio1"). Cells.Item (1) 
Worksheets ("Foglio1"). Cells (1) ‘si riferisce al Range A1 
Worksheets ("Foglio1"). Cells (2) ‘si riferisce al Range B1. 


Durante l'utilizzo di un solo parametro di riferimento della proprietà Item (Rowlndex), se l'indice supera 
il numero di colonne nell'intervallo specificato, il riferimento verrà disposto alle righe successive 
all'interno delle colonne del Range. Tralasciando l'oggetto qualificatore imposterà il foglio attivo. Cells 
(16385) che si riferisce al Range A2 del foglio attivo in Excel 2007 che ha 16384 colonne e cells (16386) 
si riferisce all'intervallo B2, e così via. Si noti inoltre che Rowlndex e ColumnIndex sono offset e relativi 
nell'intervallo specificato (cioè rispetto all'angolo superiore sinistro del campo specificato). Entrambe le 
espressioni: 
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Range ("B3") .Item (1) 

Range ("B3: D6").Item (1) ‘si riferiscono al Range B3. 
Range ("B3: DG"). Item (6) ‘si riferisce al Range D4: 
Range ("B3: DE"). Cells (6) 

Range ("B3: D6") . ColumnIndex(6) 


si riferisce al numero di colonna della cella e può essere un numero che inizia con 1 o può essere una 
stringa che inizia con la lettera "A". 


Worksheets ("Foglio1"). Cells (2, 3) e 
Worksheets ("Foglio1"). Cells (2, "C") 


si riferiscono entrambi al Range C2 in cui RowIndex è 2 e ColumnIndex è 3 (colonna C) 


Range ("C2"). Cells (2, 3) ‘si riferisce al Range E3 nel foglio attivo 
Range ("C2"). Cells (4, 5) ‘si riferisce al Range GS nel foglio attivo 


Utilizzando Range ("C2"). Item (2, 3) e Range ("C2"). Item (4, 5) si ha lo stesso effetto e si riferiscono, 
rispettivamente, al Range E3:G5. Utilizzando: 


Range ("C2: D3"). Cells (2, 3) 
Range ("C2: D3"). Cells (4, 5) 


sarà come riferirsi rispettivamente al Range E3 e al Range GS. Omettere la Voce Item esprimendo il 
codice in questo modo 


Range ("C2: D3") (2, 3) 
Range ("C2: D3") (4, 5) ‘ ci si riferisce al Range E3 e al Range G5. 


20.6 La Proprietà Columns 


La Proprietà Columns nell’Oggetto Foglio ha la seguente Sintassi WorksheetObject. Columns 
E può riferirsi a tutte le colonne in un foglio che vengono restituite come un oggetto Range. Esempio: 


Worksheets ("Foglio1"). Columns ‘restituirà tutte le colonne del foglio 
Worksheets ("Foglio1"). Columns (1), ‘restituisce la prima colonna (colonna A) 
Worksheets ("Foglio1"). Columns ("A") ‘restituisce la prima colonna (colonna A) 
Worksheets ("Foglio1"). Columns ("A: C") ‘restituisce le colonne A, B e C 


Tralasciando l'oggetto qualificatore si imposterà il foglio come attivo, utilizzando columns(1) che 
restituisce la prima colonna del foglio attivo. La Proprietà Columns dell'oggetto Range ha la seguente 
Sintassi. RangeObject.Columns e viene usato per fare riferimento alle colonne in un intervallo 
specificato. 


‘ inserire un colore di sfondo nelle celle di tutte le colonne del Range specificato 
Worksheets ("Foglio1"). Range ("B2: D4"). Columns.Interior.Color = vbYellow 
Worksheets ("Foglio1"). Range ("B2: D4"). Columns (1). Interior.Color = vbGreen 


Se l'oggetto specificato contiene più zone, le colonne della prima area verranno restituite solo da 
questa proprietà. Esempio di 2 aree nell'intervallo specificato, la prima "B2: D4" e la seconda "F3: GG" 
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Esempi per inserire il colore di fondo nelle celle dalla 1° colonna della 1° area dalle celle B2: B4 
Worksheets ("Foglio1"). Range ("B2: DA, F3: G6"). Columns (1). Interior.Color = vbRed 


20.7 La Proprietà Rows 


La Proprietà Worksheet.Rows ha la seguente Sintassi WorksheetObject.Rows e si riferisce a tutte le 
righe in un foglio di lavoro che vengono restituite come un oggetto Range si può usare 


Worksheets ("Foglio1"). Rows ‘restituirà tutte le righe del foglio di lavoro 
Worksheets ("Foglio1 "). Rows (1) ‘restituirà la prima riga (riga uno) del foglio 
Worksheets ("Foglio1"). Rows (3) ‘restituirà la terza riga del foglio di lavoro 
Worksheets ("Foglio1"). Rows ("1:3") ‘restituirà le prime 3 righe 


La Proprietà Range.Rows ha la seguente Sintassi RangeObject.Rows fa riferimento a delle righe in un 
intervallo specificato: Esempio, per inserire il colore di fondo in tutte le righe da B2 a D4 si usa: 


Worksheets ("Foglio1"). Range ("B2: D4"). Rows.Interior.Color = vbYellow 
‘ per inserire il colore di fondo nella prima riga nel Range da B2 a D2: 
Worksheets ("Foglio1"). Range ("B2: D4"). Rows (1). Interior.Color = vbGreen. 


Se l'oggetto specificato contiene più zone, le righe della prima area verranno restituite solo dalla 
proprietà Areas. Esempio inserire il colore di fondo nelle celle dalla 1° riga della 1° area alle celle da B2 
a D2: Worksheets ("Foglio1"). Range ("B2: D4, F3: G6"). Rows (1). Interior.Color = vbRed. 


20.8 La Proprietà Range.Offset 


La Proprietà Range.Offset ha la seguente Sintassi RangeObject.Offset (RowOffset, ColumnOffset) 
Entrambi gli argomenti sono facoltativi, l'argomento RowOffset specifica il numero di righe 
dell'intervallo specificato in cui si deve spostare, tenendo presente che valori negativi indicano uno 
spostamento verso l'alto e valori positivi indicano lo spostamento verso il basso, il valore di default è 0. 
L'argomento ColumnOffset specifica il numero di colonne dell'intervallo specificato in cui ci si deve 
spostare, tenendo presente che valori negativi indicano lo spostamento a sinistra e valori positivi 
indicano lo spostamento a destra, il valore di default è 0. Esempio: 


Range ("C5"). Offset (1, 2) ‘ si sposta di 1 riga e 2 colonne e si riferisce al Range E6 
Range ("C5: D7 "). Offset (1, -2) ‘si sposta di 1 riga verso il basso e di 2 colonne a sx 


‘ con riferimento a una singola cella, inserire il valore 10 nella cella A1 di Foglio1 
Worksheets ("Foglio1"). Range ("A1"). Value = 10 

Worksheets ("Foglio1"). Range ("A1") = 10 

‘ Inserire il valore di 10 nella cella C2 del foglio di lavoro attivo 

ActiveSheet.Cells (2, 3). Value = 10 


‘Esempi di riferimenti a un intervallo di celle 

ActiveSheet.Range. ("A1: B3"). Value = 10 

ActiveSheet.Range ("A1", "B3"). Value = 10 

ActiveSheet.Range (Cells (1, 1), Cells (3, 2)) = 10 

Worksheets ("Foglio1"). Range ("A1, B3"). Value = 10 ‘Inserire 10 nelle celle A1 e B3 di Foglio1 
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‘Impostate il colore di sfondo per le celle B2, B3, C2, C3, D2, D3 e H7 di Foglio3 
ActiveWorkbook.Worksheets ("Foglio3"). Range ("B2: D3, H7"). Interior.Color = vbRed 


Range ("pippo"). Value = 10 ‘ Inserire 10 nell'intervallo "pippo" del foglio di lavoro 
ActiveSheet.Range ("pippo"). Value = 10 

ActiveSheet.Cells.Select ‘Selezionare tutte le celle del foglio di lavoro attivo: 
Cells.Select 


‘Impostare il font "Times New Roman" e la dimensione del carattere a 11 
ActiveWorkbook.ActiveSheet.Cells.Font.Name = "Times New Roman" 
ActiveSheet.Cells.Font.Size = 11 

Cells.Font.Size = 11 


‘Esempi riferiti a righe e colonne 


ActiveSheet.Rows.Select ‘Selezionare tutte le righe del foglio attivo 
Worksheets ("Foglio1"). Righe (2). Valore = 10 ‘ Inserire 10 in ogni cella della riga 2 di Foglio1 
ActiveSheet.Columns.Select ‘Selezionare tutte le colonne del foglio attivo 


Columns.Select 

‘ Inserire il valore 10 in ogni cella della colonna numero 3 del foglio di lavoro attivo 
ActiveSheet.Columns (3). Value = 10 

Columns ("C"). Value = 10 

‘ Inserire il valore 10 in ogni cella delle colonne 1, 2 e 3 di Foglio1 

Worksheets ("Foglio1"). Columns ("A: C"). Value = 10 


‘Esempi di riferimento relativo 


Range ("C5: E8"). Range ("A1") = 10 ‘ Inserisce il valore 10 in C5 

Range ("C5: E8"). Range ("B2")= 10 ‘ Inserisce il valore 10 in DG 

Range ("C5"). Offset (1, 2) = 10 ‘ Inserisce 10 in E6, con offset di 1 ri e 2 co 
Range. ("C5: E8"). Offset (2, 3) = 10 ‘ Inserisce 10 in F7: H10 con Offset di 2 ri e 3 co 


20.9 La Proprietà Range.Row 


Per restituire il numero della prima riga in un intervallo, si utilizza la proprietà Range.Row e se 
l'intervallo specificato contiene più aree, questa proprietà restituirà il numero della prima riga della 
prima area. Sintassi. RangeObject.Row. Mentre invece per restituire il numero della prima colonna in 
un intervallo, si utilizza la Proprietà Range.Column e se l'intervallo specificato contiene più aree, questa 
proprietà restituirà il numero della prima colonna nella prima area. Sintassi RangeObject.Column 


Range ("C5: E8"). Range ("A1") = 10 ‘ Inserisce il valore 10 in C5 

Range ("C5: E8"). Range ("B2") = 10 ‘ Inserisce il valore 10 in DG 

Range ("C5"). Offset (1, 2) = 10 ‘ Inserisce 10 in E6, con offset di 1 riga e 2 colonne 
Range. ("C5: E8"). Offset (2, 3) = 10 ‘ Inserisce 10 in F7: H10 con Offset di 2 rig. e 3 col 
MsgBox ActiveSheet.Range ("B4"). Row ‘N° 1° riga nell'intervallo — restituisce 4: 


MsgBox Worksheets ("Foglio1"). Range ("B4: D7"). Row ‘N° 1° colonna nell'intervallo — restit. 2: 
MsgBox ActiveSheet.Range ("B4: D7"). Columns 
MsgBox Range ("B4: D7"). Row. (Range ("B4: D7"). Rows.Count). Row ‘N° ultima riga 
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Sub esempio_2() ‘determinare il numero di riga e numero di colonna a righe alternate 
Dim rng As Range, cell As Range, i As Integer 

Set rng = Worksheets("Foglio1").Range("B4:D7") 
For Each cell In rng 

cell.Value = cell.Row & "," & cell.Column 

Next 

Fori=1Torng.Rows.Count 

IfiMod2=1Then 

rng.Rows(i).Interior.Color = vbGreen 

Else 

rng.Rows(i).Interior.Color = vbYellow 

End If 

Next 

End Sub 


È possibile ottenere un riferimento di intervallo in linguaggio VBA utilizzando la proprietà 
Range.Address , che restituisce l'indirizzo di un intervallo come valore stringa. Questa proprietà è di 
sola lettura. Esempi di utilizzo 


MsgBox Range ("B2"). Address ‘ Restituisce $B$2 

MsgBox Range ("B2, C3"). Address ‘ Restituisce $BS2, $C$3 

Dim strRng As String 

Range ("A1: B2, C3, D4"). Select ‘ Restituisce SAS1: $BS2, $C$3, SDS4 
strRng = Selection.Address 

MsgBox strRng ‘ Restituisce $B2 

MsgBox Range ("B2"). Address (RowAbsolute: = False) ‘Restituisce B$2 


20.10 Attivare e selezionare Celle con ActiveCell e Selection 


Il metodo Select (dell'oggetto Range) viene utilizzato per selezionare una cella o un intervallo di celle in 
un foglio di lavoro e presenta la seguente Sintassi RangeObject.Select, dovete assicurarvi che il foglio 
di lavoro in cui viene applicato il metodo Select per selezionare le celle, sia il foglio attivo. La 

proprietà ActiveCell (dell'oggetto Application) restituisce una singola cella attiva (oggetto Range) nel 
foglio di lavoro attivo, tenendo presente che la proprietà ActiveCell non funziona se il foglio attivo non 
è un foglio di lavoro. 


Quando si seleziona una cella nella finestra attiva, la proprietà Selection (dell'oggetto Application) 
restituisce un oggetto Range che rappresenta tutte le celle che sono attualmente selezionate nel foglio 
di lavoro attivo. Una selezione può essere costituita da una singola cella o un intervallo di più celle, ma 
ci sarà una sola cella attiva al suo interno, che viene restituita utilizzando la proprietà ActiveCell. 
Quando viene selezionata una sola cella, la proprietà ActiveCell restituisce questa cella, mentre invece 
selezionando più celle utilizzando il metodo Select, la prima cella di riferimento diventa la cella attiva. 
Sia la proprietà ActiveCell e la proprietà Selection sono di sola lettura, e non specificando l'oggetto 
Application cioè il qualificatore Application.ActiveCell o ActiveCell o Application.Selection o Selection 
avranno lo stesso effetto. Per attivare una singola cella all'interno della selezione corrente, si deve 
utilizzare il metodo Activate (dell'oggetto Range) che presenta questa Sintassi RangeObject.Activate e 
la cella attivata verrà restituita utilizzando la proprietà ActiveCell. 


Una selezione può essere costituita da una singola cella o un intervallo di più celle, mentre ci può 
essere solo una cella attiva all'interno della selezione e quando si attiva una cella al di fuori della 
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selezione, la cella attiva diventa l'unica cella selezionata. È inoltre possibile utilizzare il metodo Activate 
per specificare un intervallo di più celle, ma in effetti sarà attivata solo una singola cella, e questa cella 
attiva sarà la cella rappresentata dall'angolo superiore sinistro del campo specificato nel 

metodo. Se questa cella in alto a sinistra si trova all'interno della selezione, la selezione corrente non 
cambierà, ma se questa cella in alto a sinistra si trova al di fuori della selezione, l'intervallo specificato 
nel metodo Activate diventa la nuova selezione. 


La proprietà Application.Selection restituisce l'oggetto selezionato in cui la selezione determina il tipo di 
oggetto restituito e quando la selezione è un intervallo di celle, questa proprietà restituisce un 

oggetto Range , che può comprendere una singola cella, o più celle o intervalli multipli non contigui. Il 
metodo Select (dell'oggetto Range) è usato per selezionare una cella o un intervallo di celle in un foglio, 
pertanto, dopo aver selezionato un intervallo, è possibile eseguire azioni sulla selezione di celle 
utilizzando l'oggetto Selection. 


Sub esempio() 
Range("A1:B3,D6").Select 
Selection.Interior.Color = vbRed 
End Sub 


20.11 Le Proprietà Entire.Row, Entire.Column e Insert 


La proprietà Range.EntireRow restituisce un'intera riga o le righe all'interno del Range specificato e 
restituisce un oggetto Range con riferimento alla intera riga. Sintassi RangeObject.EntireRow, mentre 
invece la proprietà Range. EntireColumn restituisce un'intera colonna o le colonne all’interno del Range 
specificato e restituisce un oggetto Range con riferimento alla intera colonna. Sintassi 
RangeObject.EntireColumn. Esempi di utilizzo delle proprietà EntireRow e EntireColumn 


Range ("A2"). EntireRow.Select ‘Selezionare la riga 2 

Range ("A2: C4"). EntireRow.Select ‘Selezionare le righe 2,3 e 4 
Cells (3, 4). EntireRow.Cells. (1, 1). Value = 3 ‘Inserire il valore 3 nel Range A3 
Range ("A2"). EntireColumn.Select ‘Selezionare la colonna A 

Range ("A2: C4"). EntireColumn.Select ‘Selezionare le colonne da A a C 
Cells (3, 4). EntireColumn.Cells (1, 1). Value = 4 ‘Inserire il valore 4 nel Range D1 


Il metodo Range.Insert si utilizza per inserire una cella o un intervallo di celle in un foglio di lavoro. 

Sintassi RangeObject.Insert (Shift, CopyOrigin). Entrambi gli argomenti racchiusi nelle parentesi sono 
facoltativi. Quando si inseriscono delle celle, le altre vengono spostate per fare spazio a quelle inserite, 
ed è possibile impostare un valore per determinare la direzione in cui le altre cellule devono spostarsi. 


Specificando x/ShiftDown si sposteranno le celle in basso e con x/ShiftToRight si spostano le celle a 
destra. Tralasciando questo argomento la direzione di spostamento verrà decisa in base alla forma del 
Range. Specificando x/FormatFromLeftOrAbove per l'argomento CopyOrigin si copierà il formato delle 
celle inserite dalle celle sopra a sinistra, e specificando x/FormatFromRightOrBelow si copierà 

il formato dalle celle sotto a destra. 


Range ("B2"). Insert ‘Sposta le celle in basso e copia la formattazione della cella inserita 
Range ("B2: C4"). Insert ‘Sposta le celle a Dx e copia la formattazione delle celle inserite da Sx 
Range ("B2: D3"). Insert ‘Sposta le celle in basso e copia la formattazione delle celle inserite 
Range ("B2: D3"). Insert CopyOrigin: = xlFormatFromRightOrBelow ‘Spostare celle in basso e ... 
Range ("B2: D3"). Insert shift: = xIShiftToRight ‘Sposta celle a Dx e copia formattazione delle ...... 
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Sub inserireRC() ‘: Inserire una riga o colonna, specificando la riga/colonna da inserire 
Dim ws As Worksheet 
Set ws = Worksheets("Foglio1") 


ws.Rows(12).Insert ‘specificare il numero di righe da inserire 
ws.Range("C3").EntireRow.Offset(1, 0).Insert ‘specificare il range sotto al quale inserire le righe 
ws.Columns(4).Insert ‘specificare il numero di colonne da inserire 
ws.Range("C3").EntireColumn.Offset(0, 1).Insert ‘specificare l'intervallo a destra x inserire colonne 
End Sub 


21. Scrittura di nuove macro e procedure 


Se esaminiamo una macro ottenuta con il Registratore di macro si potrà notare che hanno tutte alcune 
caratteristiche in comune. Per esempio registriamo due macro, una che formatti una selezione di celle 
(A1:D10) e applichi al carattere il formato grassetto e l’altra che applichi il colore rosso allo stesso 
intervallo di celle. Operando dal Registratore di macro, come abbiamo già visto, per la prima macro, 
quella che formatta le celle in grassetto otteniamo il seguente listato. 


1) S 


8) 


ub Grassetto() 


' Macro Grassetto 

' Macro registrata il ...... 
Range("A1:D10").Select 
Selection.Font.Bold = False 
Range("A1").Select 


9) End Sub 


‘E per la seconda macro che applica il colore rosso al carattere otteniamo il seguente listato 


1) Sub Colore() 

2) | 

3) 'colore Macro 

4) ' Macro registrata il ....... 

5)" 

6) Range("A1:D10").Select 

7) Selection.Font.ColorIndex = 3 
8) Range("A1").Select 

9) End Sub 


Il codice sorgente di una macro in un modulo NON include un numero davanti ad ogni 


(£) linea, La numerazione delle linee dei listati rappresentati è stata usata solo per facilitare 


l’identificazione e la discussione di particolari linee nei vari listati 


Come abbiamo esordito all’inizio affermando che tutte le macro hanno caratteristiche in comune, con 
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questi due listati possiamo iniziare a notare qualche affinità. La riga 1 è sempre l’inizio della macro e 
ogni macro VBA inizia con il termine Sub seguito dal nome della macro. La linea che contiene la parola 
chiave Sub e il nome della macro viene detta “dichiarazione della macro”, in quanto è quella che rende 
noto al VBA l’esistenza della macro stessa. 


Il nome della macro, a sua volta, è sempre seguito da una coppia di parentesi vuote(), il cui scopo e 
utilizzo verrà affrontato più avanti nel corso, per il momento basta solo sapere che le due parentesi 
devono sempre comparire dopo il nome della macro nel codice sorgente. Un'altra affinità è 
rappresentata dalla parola chiave End Sub alla riga 9 che segnala al VBA che è stata raggiunta la fine 
della macro. 


Dalla riga 2 alla riga 5 dei due listati sono presenti dei commenti. Un commento è una riga della macro 
che non contiene istruzioni ma che fanno parte della macro stessa, generalmente viene usato per dei 
chiarimenti sull'azione che sta per compiere la macro stessa. Come si può notare, ogni riga di 
commento inizia con un apostrofo (‘) e il VBA tratta ogni riga che comincia con un apostrofo come un 
commenta e non processa il testo al suo interno. 


Subito dopo la dichiarazione Sub nome_della_macro () segue il corpo della macro che può includere 
varie righe di codice e/o di commento. Nel caso della macro Grassetto le righe da 6 a 8 costituiscono il 
corpo della macro, così come la macro Colore. Ogni riga del corpo della macro consiste in uno o più 
enunciati che rappresentano una serie di parole chiave e altri simboli che assieme costituiscono 
un'istruzione VBA completa. 


Gli enunciati VBA di una macro registrata contengono le istruzioni che svolgono azioni equivalenti a 
quelle che sono state eseguite quando si è registrata la macro stessa. Per esempio la riga 6 della 
macro Grassetto seleziona il Range di celle A1:D10 così come la stessa riga della macro Colore, mentre 
invece la riga 7 della macro Grassetto fissa il carattere al formato grassetto, la stessa riga della 

macro Colore fissa il colore del testo a rosso. La riga 8 dei due listati seleziona la cella A1 in quanto 
dopo aver formattato le celle abbiamo cliccato sulla cella A1. 


Quando si esegue una macro il VBA parte dalla prima riga del corpo della macro (la prima dopo la 
dichiarazione) eseguendo le istruzioni contenute in essa in sequenza, da sinistra verso destra, poi passa 
alla riga successiva ed esegue le istruzioni in essa contenute e così di seguito fino a raggiungere la fine 
della macro, definita dall’enunciato End Sub. Possiamo inoltre notare che alcune parti del testo della 
macro sono visualizzate in colori differenti, i commenti sono visualizzati in colore verde, mentre le 
parole chiave Sub e End Sub e altre del VBA sono di colore blu, mentre il testo rimanente della macro è 
di colore nero, a indicare che si tratta di dati e enunciati creati dall'utente. 


21.1 Modifica del testo di una macro 


Per apportare delle modifiche al codice sorgente di una macro in un modulo si usano comandi e 
tecniche che risultano già famigliari a chi usa Windows, la modifica del testo in un modulo visualizzato 
nella finestra Codice avviene esattamente come quando si edita un testo in Word o in qualsiasi altro 
elaboratore di testi, per aggiungere, eliminare, selezionare, tagliare etc. si useranno quindi i medesimi 
comandi da tastiera o col mouse. Le modifiche apportate a un modulo si possono salvare tramite il 
comando File - Salva dell’Editor di VB oppure facendo clic sul pulsante Salva della barra degli strumenti. 
Ogni modifica effettuata su un modulo viene comunque salvata quando si salva la cartella di lavoro che 
contiene il modulo stesso. 


Per fare un esempio di come effettuare modifiche a una macro prendiamo in esame la prima macro 
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registrata (Grassetto) e andiamo a modificarla, oltre ad applicare il formato grassetto vogliamo anche 
cambiare dimensioni al carattere. Possiamo procedere in questo modo, portiamoci nell’Editor di VBA 
nella macro Grassetto e spostiamo il punto di inserimento (il cursore) alla fine della riga 4 e premiamo 
Invio per inserire una riga vuota. Digitiamo un apostrofo (‘) e digitiamo poi il testo del commento (per 
esempio: la linea successiva cambia la dimensione del carattere) a questo punto nella riga successiva al 
commento dobbiamo solo scrivere il codice VBA che esegua l'operazione richiesta. 


Possiamo aiutarci col registratore di macro, quando abbiamo trattato il registratore abbiamo detto che 
una volta attivato registra tutte le operazioni svolte dall'operatore e le converte in codice VBA, pertanto 
possiamo ritornare a Excel, attivare la registrazione di una nuova macro, selezionare l'intervallo di celle 
riportato nella macro Grassetto e modificare la dimensione del carattere. Una volta eseguita questa 
operazione fermiamo la registrazione e torniamo nell’Editor VBA per vedere il codice, che si presenta in 
questo modo: 


Sub Macro2() 


' Macro2 Macro 
' Macro registrata il ......... 


Range("A1:D10").Select 

With Selection.Font 
.Name = "Arial" 
.Size = 12 
.Strikethrough = False 
.Superscript = False 
.Subscript = False 
.OutlineFont = False 
.Shadow = False 
.Underline = xlUnderlineStyleNone 
.Colorlndex = xlAutomatic 

End With 

End Sub 


Adesso è possibile prelevare il codice che ci interessa e aggiungerlo alla macro Grassetto in modo che 
compia tutte e due le operazioni, cioè che applichi il formato grassetto e inserisca il carattere Arial da 
12 Pt. Possiamo ridurre il listato riportato a queste istruzioni 


With Selection.Font 
.Name = "Arial" 
.Size = 12 

End With 


Che sono quelle che si occupano di modificare la dimensione del carattere, vedremo più avanti il 
significato delle altre istruzioni quando tratteremo il Ciclo With, per il momento consideriamo la sola 
modifica di una macro utilizzando il registratore di macro quando non si conosce il codice VBA da 
inserire. A questo punto possiamo prelevare il codice riportato e aggiungerlo alla macro Grassetto 
semplicemente selezionandolo e copiandolo premendo consecutivamente i tasti Ctrl+C oppure 
passando dal menù Modifica - Copia. 


A questo punto andiamo nella macro Grassetto e posizioniamo il cursore sulla riga sotto al commento 
che abbiamo inserito in cui abbiamo scritto che veniva modificata la dimensione del carattere e 
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premiamo consecutivamente i tasti Ctrl+V oppure dal menù Modifica - Incolla. Adesso la macro è 
diventata 


Sub Grassetto() 
' Grassetto Macro 
' Macro registrata il ...... 
' La linea successiva cambia la dimensione del carattere 
Range("A1:D10").Select 
With Selection.Font 
.Name = "Arial" 
.Size = 12 
End With 
Selection.Font.Bold = False 
Range("A1").Select 
End Sub 


A questo punto la macro Grassetto è stata modificata usando il registratore di macro per trasformare 
le nostre azioni compiute sul foglio in codice sorgente e se eseguiamo la macro adesso oltre ad 
applicare il formato grassetto applica anche il carattere Arial da 12 Pt. Si consiglia di aggiungere 
commenti al corpo della macro che spiegano i motivi e lo scopo delle modifiche apportate a una macro 
che potranno facilitare l’identificazione delle parti revisionate e far capire meglio che cosa fanno le 
modifiche 


21.2 Scrittura di nuove macro e procedure 


Per scrivere una propria macro senza ricorrere al registratore di macro si può digitare la macro entro 
un modulo esistente o creare un nuovo modulo, finora abbiamo utilizzato il termine macro per 
identificare sia quelle scritte usando il registratore di macro che quelle "autonome" cioè scritte di 
proprio pugno, esiste però un termine che aiuta a distinguere tra macro registrate e “autonome” e, 
strettamente parlando, il termine macro dovrebbe essere applicato solo alle macro registrate, mentre 
invece le macro scritte partendo da zero sono chiamate procedure sub (subroutine) o 

semplicemente procedure, pertanto nel proseguo di questo corso verrà utilizzato il termine macro per 
identificare il codice sorgente ottenuto usando il registratore di macro e procedure per riferirsi al 
codice VBA scritto dall'utente 


Per scrivere una nuova procedura entro un modulo esistente bisogna prima aprire la finestra Codice 
facendo doppio clic sul modulo in Gestione progetti oppure selezionando il modulo e poi 

scegliere Visualizza - Codice. Per scrivere il testo del codice di una procedura, che venga aggiunta ad un 
modulo nuovo o a uno esistente, si deve portare il cursore di testo nella finestra Codice sul punto del 
modulo in cui si vuole digitare la nuova procedura. Si può battere il testo di una nuova procedura in 
una posizione qualsiasi di un modulo, purchè essa venga comunque posizionata dopo l’enunciato End 
Sub che segna la fine della procedura precedente e prima dell’enunciato Sub della procedura 
immediatamente successiva, personalmente consiglio di aggiungere una nuova procedura sempre alla 
fine del modulo. 


Quando si scrive una procedura bisogna specificarne il nome e includere la parola chiave 

Sub e End Sub rispettivamente all'inizio e alla fine della procedura stessa, se si trascura uno di questi tre 
particolari la sintassi della procedura non risulterà corretta e l’Editor di VB visualizzerà un messaggio di 
errore quando si eseguirà la procedura. Si deve tenere presente che se digitiamo il nome della 
procedura preceduto dalla parola chiave Sub e battiamo il tasto invio l’Editor completerà la procedura 
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aggiungendo le due parentesi vuote e la parola chiave End Sub 


Il primo classico programma che si scrive in un qualsiasi linguaggio di programmazione, per tradizione, 
è quello che visualizza a video la frase : Ciao Mondo! || listato che segue mostra un programma VBA con 
una singola procedura che adempie allo scopo. 


Sub Mondo() 
MsgBox "Ciao Mondo!" 
End Sub 


Per realizzare questo listato ecco come procedere. 


v Aprite una cartella di lavoro di Excel o create una nuova cartella 

v_ Premete i tasti Alt+F11 per entrare nell'Editor VB 

v In Gestione progetti selezionate il documento o la cartella in cui si vuole memorizzare il 
programma 

v_ Scegliere dal menu Inserisci - Modulo per aggiungere un nuovo modulo al progetto. L’Editor VB 
aggiunge un nuovo modulo e apre la finestra Codice 

Y Cambiate il nome del modulo, risulta più intuitivo riconoscere il contenuto del modulo dal 
nome, per esempio mettete saluto 

v Essendo nuovo il modulo iniziate a scrivere dalla prima riga, in caso contrario accertatevi di 
scrivere il testo all’inizio di una riga e digitate il listato che abbiamo visto poco sopra premendo 
invio al termine di ogni riga 


L’Editor VB include varie funzioni che aiutano a scrivere le procedure, in primo luogo non appena si 
preme invio dopo aver digitato la parola chiave Sub seguita dal nome della procedura, 
automaticamente viene pure aggiunta la riga con la parola chiave End Sub, in tal modo non occorre 
preoccuparsi di una possibile dimenticanza di questo elemento critico della procedura. Inoltre l’Editor 
VB comprende una funzionalità detta informazioni rapide automatiche e non appena si digita la parola 
chiave MsgBox e si preme la barra spazio compare una finestrella rettangolare che mostra l'elenco 
completo di tutti gli argomenti della procedura o funzione VBA integrata in questione, in questo caso 
gli argomenti di MsgBox 


msgbox 
MsgBox(Prompr, [Buttons As VbMsgBoxStyle = vbOKOniy], [Title], [He/pFile], [Contexf]) As VbMsgBoxResult | 


L'argomento che si prevede sia il prossimo ad essere digitato compare in grassetto in questa finestrella 
(un argomento è un’informazione richiesta dalla procedura per poter svolgere il suo lavoro) la 
finestrella Informazioni rapide automatiche si chiude non appena si preme Invio per iniziare una nuova 
riga nella finestra del codice oppure ci si sposta dalla linea del codice con i tasti freccia o col 

cursore del mouse. Se la finestrella delle informazioni rapide automatiche anziché essere utile dà 
fastidio, la si può disabilitare (e riattivare) col comando Strumenti - Opzioni dell’Editor VB. Una volta 
immesso il codice sorgente della procedura Mondo la si può eseguire in questo modo: 


v_ Selezionare il comando Strumenti - Macro per aprire la finestra di dialogo delle macro 
v. Selezionate la procedura Mondo dall'elenco dei nomi delle macro 
v Fare clic sul pulsante Esegui 


a € WQuandoil VBA esegue la procedura visualizza la finestra di dialogo sotto 
Microsott Excel 1) 


riportata. Si consideri l’uso della funzione MsgBox a puro titolo di esempio, 
tratteremo questa interessante funzione molto dettagliatamente nel proseguo 
del corso, lo scopo della procedura Mondo era solo per mostrare i passaggi da 


eseguire per scrivere una procedura manualmente 


Ciao Mondo! 
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22. Creare e Richiamare Procedure Sub e Funzioni 


Se volete sviluppare una applicazione VBE, una delle prime cose che dovete sapere è la differenza 

tra Funzioni e Subroutine, quest'ultime note anche come Procedure Sub. In entrambi i casi si tratta di 
una sorta di "raggruppamento" di istruzioni che svolgono un'operazione comune, e per questo sono 
molto simili, praticamente tutto il codice di un programma è contenuto all'interno di funzioni e routine. 
Conoscere la differenza tra i due tipi di procedure aiuterà a prendere la decisione giusta su quale usare, 
in quanto consentono di suddividere il codice in blocchi, ognuno dotato di una propria specifica 
funzionalità, evitando ripetizioni e garantendo una miglior leggibilità del codice stesso. La differenza 
fondamentale tra le due è che le procedure eseguono operazioni di tipo generale, come una serie di 
istruzioni collegate ad un evento o richiamate nel codice principale, mentre le funzioni rappresentano 
un procedimento di calcolo o una elaborazione che deve restituire un valore come risultato al 
programma chiamante. 


Se si scrive lo stesso codice più volte, l’applicazione che state costruendo potrebbe beneficiare di una 
procedura, piuttosto che duplicare il codice in più posizioni, che oltre a rendere più difficoltosa 
l'operazione di Debug rende il programma stesso più grande di quanto dovrebbe essere. Una 
procedura è indicata anche con il termine di macro, che è rappresentata come un insieme di codici che 
rendono Excel in grado di eseguire un'azione. Una procedura è una sequenza di istruzioni che inizia con 
la parole chiave Sub, seguita dal nome della routine, e poi da due parentesi, al cui interno è possibile 
inserire dei parametri (opzionali) richiesti della procedura, ai quali non c'è limite, come numero, e 
termina con la parola chiave End Sub 


22.1 La Procedura Sub 


Sub è la forma breve di sotto-routine, ed è utilizzata per gestire una certa attività all'interno di un 
programma. Le subroutine vengono usate per dividere i task in singole procedure, cosa molto utile in 
quanto la divisione di un programma in procedure e sotto procedure lo rende più leggibile e riduce le 
probabilità di errore. Le subroutine possono accettare alcuni argomenti come parametri ma non 
restituiscono nessun valore alla procedura o alla funzione chiamante. Una procedura Sub inizia con la 
parola chiave Sub, seguita dal nome e poi da una serie di parentesi e termina con l'istruzione End 
Sub nel mezzo tra le due parole chiave va inserito il codice. La sintassi è: 


Sub nome_routine () 
‘istruzioni della subroutine 
End Sub 


Oppure, nel caso si voglia passare dei parametri alla Sub si usa questa sintassi: 


Sub nome_routine (param1 As tipo, param2 As tipo) 
‘istruzioni della subroutine 
End Sub 


Dove param1 e param2 rappresentano i parametri che vengono passati alla procedura. Si noti come la 
dichiarazione di una subroutine è molto simile a come si dovrebbe dichiarare una variabile, 
specificando il nome del parametro e il tipo di dati, dove ciascun parametro passato alla procedura è 
trattato come una variabile locale nella subroutine, il che significa che la “durata” del parametro è la 
stessa di quella della procedura. Ci sono due modi per passare una variabile in ingresso ad una 
procedura: per valore (o ByVal) oppure per riferimento (o ByRef). La differenza fra le due modalità sta 
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nel rendere disponibile alla procedura o una copia del valore della variabile, o il contenuto vero e 
proprio della stessa. Sintatticamente si indica la modalità per valore o per riferimento 
premettendo ByVal o ByRef rispettivamente prima della dichiarazione dei parametri di ingresso 


Sub nome_routine (ByVal As Type) 
Sub nome_ routine (ByRef As Type) 


Si consideri che in assenza del tipo di dati nella dichiarazione della routine, per impostazione 
predefinita, una subroutine tratta gli argomenti passati per valore, il che significa che la procedura non 
può modificare il contenuto della componente variabile nel codice chiamante. Per richiamare una 
subroutine che non prevede il passaggio di parametri da altra routine, si può alternativamente 
utilizzare l'istruzione Call seguita dal nome della routine oppure indicare il solo nome della routine da 
eseguire. 


Call aggiungi1 
aggiungil 


Nel caso si debba richiamare una routine che necessita il passaggio di parametri allora è necessario 
ricorrere all'istruzione Call e inserire, dopo il suo nome, i valori separati da una virgola e racchiusi tra 
parentesi. Call aggiungi1(x) Si consideri il seguente programma come esempio: 


Sub proval() 
Dim x As Integer 
x=5 

MsgBox x 

Call aggiungi1(x) 
MsgBox x 

End Sub 


Sub aggiungi1(ByVal i As Integer) 
i=i+1 
End Sub 


In questo esempio viene assegnato il valore 5 alla variabile x, e poi tramite la funzione MsgBox ne viene 
stampato il valore a video, successivamente viene chiamata la procedura aggiungi1 che prende in 
ingresso una copia del valore di x e lo incrementa. Questa operazione però non ha effetto sul 
contenuto della variabile x infatti quando successivamente viene stampato il valore di x rimane sempre 
5. Se invece consideriamo il seguente listato 


Sub prova2() 
Dim x As Integer 
x=5 

MsgBox x 

Call aggiungi2(x) 
MsgBox x 

End Sub 


Sub aggiungi2(ByRef i As Integer) 


i=j+1 
End Sub 
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Questa volta la variabile x è stata passata per riferimento (ByRef), questo significa che la procedura va a 
modificare il contenuto della variabile, Infatti alla fine dell’elaborazione il valore di x è stato 
incrementato e vale 6 


22.2 La Procedura Function 


Abbiamo già detto che una procedura sub è un insieme di codici VBA o istruzioni che svolgono 
un'azione, ma non restituiscono un valore, mentre invece una funzione è anche usata per eseguire 
un'azione o un calcolo, cosa che può essere eseguita anche da una sub routine, ma la Function 
restituisce un valore. || nome della funzione può essere utilizzato nell'ambito della procedura per 
indicare il valore restituito dalla funzione stessa e non può essere creata utilizzando il registratore di 
Macro. 


Una routine Function può essere richiamata utilizzando il nome in un'espressione che non è possibile 
per una procedura sub, che invece necessita di essere richiamata solo da una dichiarazione autonoma. 
Poiché una funzione restituisce un valore, può essere utilizzata direttamente in un foglio di lavoro 
inserendo il nome della funzione dopo aver digitato un segno di uguale. Una Function inizia con la 
parola chiave Function, seguito da un nome e poi da una serie di parentesi, inoltre è necessario 
specificare il tipo di dati che corrisponde al tipo di valore che la funzione restituirà, digitando la parola 
chiave As dopo le parentesi seguita dal tipo di dati. 


Function nome_funzione(param1 As tipo_param1, param2 As tipo_param2) As tipo_valore 
... istruzioni funzione 
End Function 


Le funzioni possono essere create senza argomenti e con qualsiasi numero di argomenti che sono 
elencati tra le parentesi e in caso di argomenti multipli, si deve separarli con una virgola e termina con 
un'istruzione End Function che può essere digitato, andando alla riga successiva dopo aver digitato la 
dichiarazione viene inserita automaticamente da VBE. Le istruzioni espresse in codice VBA vanno 
collocate tra la dichiarazione Function e la dichiarazione finale End Function. La funzione può essere 
richiamata da un'altra procedura, vale a dire una sub o una function e può essere utilizzata 
direttamente in una formula del foglio di lavoro inserendo il nome della funzione dopo aver digitato un 
segno di uguale. Vediamo alcuni esempi di Funtion e come si chiamano: 


‘Utilizzare una function per inserire il valore restituito in una cella del foglio attivo 
Function part_nome() As String 
Dim nome, cognome As String 
nome = InputBox("Inserire nome") 
cognome = InputBox("Inserire il cognome") 
part_nome = nome & "" & cognome 
End Function 


Sub nome _int() 


ActiveSheet.Range("A1") = part_nome 
End Sub 
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‘Usare una Function per fare calcoli e ricevere il risultato come valore ritorno 
Function area1() As Double 

Dim i As Integer 

i = InputBox("Immettere il raggio del cerchio") 

areal=i*i*3.14 

area1 = Format(area1, "#. # #") 

End Function 


Sub calcola_1() 
MsgBox "L'area del cerchio è:" & 
End Sub 


& areal 


‘Passare una variabile alla Function per eseguire dei calcoli 
Function tre(i As Integer) As Long 

tre=i*3 

End Function 


Sub chiama_3() 

Dim a As Integer 

a = InputBox("Immettere un numero intero") 
MsgBox tre(a) 

End Sub 


Si può osservare che quando la Function non riceve argomenti l'insieme di parentesi, dopo il nome 
della procedura, è vuoto, tuttavia, quando gli argomenti sono passati a una procedura secondaria o a 
una funzione da altre procedure, allora questi sono elencati tra le parentesi. 


‘La funzione calcola_1 restituisce un valore che può essere utilizzato in una sub 
Function calcola_1() As Double 

Dim a, b As Double 

a = InputBox("Inserire il primo numero") 

b = InputBox("Inserire il secondo numero") 

calcola 1=(a+b)*2 

End Function 


Sub calcola() 

Dim c As Double 
c=calcola_1*5/2 
MsgBox c 

End Sub 


‘La funzione calcola_2 non restituisce un valore utilizzabile dalla procedura chiamante. 
Sub calcola_2() 

Dim a, b, c As Double 

a = InputBox("Inserire il primo numero") 

b = InputBox("Inserire il secondo numero") 

c=(a+b)*2 

MsgBox c 


End Sub 

Sub usa_calcola2() 
calcola_2 

End Sub 
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22.3 Regole e convenzioni per assegnare il nome alla procedura 


Ci sono alcune regole che devono essere seguite quando si assegna il nome alle procedure, una di 
queste è quella di assegnare un nome che rifletta l'azione che eseguirà la stessa, si può usare una frase 
differenziando le parole da un carattere di sottolineatura o una lettera maiuscola: 

esempio: cerca_N può equivalere a cerca nomi, si sconsiglia di usare nomi molto lunghi, inoltre il nome 
deve iniziare con una lettera, sono da evitare i numeri o un carattere di sottolineatura. 


Un nome può essere costituito da lettere, numeri o caratteri di sottolineatura, ma non può avere un 
periodo o caratteri di punteggiatura o caratteri speciali: esempio (.) @#S% 4 & * ()+-=1]{};1:1",./<> 
\ |P. Ilnome dovrebbe essere costituito da una stringa di caratteri continui, senza spazio intermedio 
e può avere un massimo di 255 caratteri, inoltre i nomi delle procedure non possono utilizzare parole 
chiave o riservate come And, Or, Loop, Do, Len, Close, data, Elself, Else, Select, etc. che VBA utilizza 
come parte del suo linguaggio di programmazione. 


22.4 Procedure Public o Private 


Una procedura VBA può essere utilizzata in ambito pubblico o privato e questo metodo di procedura 
può essere specificato con la parola chiave Public o Private, se non viene specificato il metodo, VBA 
tratta le procedure come pubbliche di default. Una procedura dichiarata come Private può essere 
richiamata solo da tutte le procedure nello stesso modulo e non saranno visibili o accessibili alle 
procedure di moduli esterni nel progetto e non apparirà nella finestra di dialogo Macro. La Procedura 
pubblica invece può essere richiamata da tutte le procedure dello stesso modulo, ma anche da tutte le 
procedure di moduli esterni nel progetto e il suo nome verrà visualizzato nella finestra di dialogo Macro 
e può essere eseguito da esso. Esempi di una procedura pubblica: 


Sub calcola1 () 
Public Sub calcola1 () 
Public Function calcola1 () As Double 


Esempi di una procedura privata: 


Private Sub calcola1 () 
Private Function calcola1 () As Double 


22.5 Moduli Standard 


Questi sono anche indicati come moduli di codice o semplicemente moduli, e ciascun modulo può 
essere utilizzato per coprire un certo aspetto del progetto. La maggior parte del codice VBA e le 
funzioni personalizzate (cioè Funzioni definite dall'utente denominate UDF) sono collocati in moduli di 
codice standard che non vengono utilizzati per le procedure di evento o per gli eventi di applicazioni 
create in un modulo di classe dedicato. Per quanto riguarda gli eventi non connessi con oggetti, come il 
metodo OnTime (attiva automaticamente un codice VBA ad intervalli periodici o in un giorno o 
momento specifico) e il metodo OnKey (eseguire un codice specifico su pressione di un tasto o una 
combinazione di tasti), essendo questi metodi non associati a un particolare oggetto il loro codice viene 
inserito in un modulo standard. 
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22.6 Modulo WorkBook 


ThisWorkbook è il nome del modulo per la cartella di lavoro e viene utilizzato per inserire eventi nella 
cartella di lavoro e eventi Application. Gli eventi Workbook sono azioni connesse con la cartella di 
lavoro per innescare un codice VBA o macro, vale a dire, apertura, chiusura, salvataggio, attivazione e 
disattivazione del foglio di lavoro sono esempi di eventi delle cartelle di lavoro. Con l'evento Open 
della cartella di lavoro, è possibile eseguire una sub automaticamente quando una cartella di lavoro è 
aperta e il codice dell'evento della cartella di lavoro deve essere inserito nel modulo di codice per 
l'oggetto ThisWorkbook, mentre se sono posti in moduli di codice standard Excel non sarà in grado di 
trovarli ed eseguirli. Anche se eventi Application possono essere creati in qualsiasi modulo oggetto, è 
meglio che siano posizionati in un modulo oggetto ThisWorkbook 


22.7 Modulo Foglio 


Un modulo foglio ha lo stesso nome del foglio di lavoro con cui è associato (Foglio1, Foglio2 etc.) e in 
VBE, il codice del nome può essere modificato solo nella finestra Proprietà e non a livello di 
programmazione, inoltre il modulo foglio può essere per un foglio di lavoro o un grafico e viene usato 
per posizionare gli eventi innescati o da eventi associati al foglio di lavoro, o da macro. Per utilizzare 
una routine evento del foglio di lavoro, in VBE si deve selezionare il foglio di lavoro dalla casella 
Progetti e quindi selezionare una procedura corrispondente dalla finestra del Codice e una volta 
selezionato l'evento specifico, si deve inserire il codice VBA che si desidera eseguire. 


Si ricorda che se il codice viene immesso in un modulo standard, Excel non sarà in grado di trovare le 
istruzioni ed eseguirle. Le principali istanze di evento sono: la selezione di una cella o cambiando la 
selezione di celle in un foglio di lavoro, cambiare il contenuto di una cella, selezionare o attivare un 
foglio, calcolare un foglio di lavoro e così via. Ad esempio, con l'evento Change di Worskheet, una 
procedura viene eseguita automaticamente quando si modifica il contenuto di una cella del foglio di 
lavoro. 


22.8 Modulo UserForm 


Procedure di evento per Userform, o per i suoi controlli, sono posizionati nel modulo della Form 
prescelta, e sono moduli pre-determinati, cioè che si verificano per un particolare uso della Form e/o 
dei relativi controlli. Per raggiungere un evento è necessario fare doppio clic sul corpo della Form per 
visualizzare il modulo di codice, quindi selezionare Userform o il suo controllo dalla casella Oggetti e 
quindi selezionare una procedura corrispondente dalla casella Routine. Dopo aver selezionato l'evento 
specifico, inserire il codice VBA che si desidera eseguire, ricordate di impostare la proprietà Name dei 
controlli prima di usare le routine di evento per loro, altrimenti sarà necessario cambiare il nome della 
procedura che corrisponde al nome del controllo. 


22.9 Esecuzione di Function 


La Function può essere chiamata da un'altra procedura vale a dire una procedura Sub o Function, e la 
funzione può essere utilizzata direttamente nel foglio come una formula inserendo il nome della 
funzione dopo aver digitato un segno di uguale. 
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22.10 Esecuzione di procedure di Evento 


Gli eventi sono azioni eseguite che innescano una macro VBA e vengono attivati quando si verifica un 
evento come apertura, chiusura, attivazione, disattivazione della cartella di lavoro, di una selezione di 
celle o di una sola cella, in pratica consiste nel fare un cambiamento del contenuto di un foglio di lavoro 
o di una cella. Le procedure di evento sono collegate agli oggetti, con un nome standard che viene 
eseguito al verificarsi di un evento corrispondente. 


Le procedure di evento sono attivate da un evento predefinito e vengono installate all'interno di Excel 
con un nome standard, si consideri la procedura di modifica del foglio di lavoro che viene installata con 
il foglio di lavoro nella procedura Private Sub Worksheet_Change (ByVal Target As Range) che viene 
richiamata automaticamente quando un oggetto riconosce il verificarsi di un evento che possa 
modificare l'oggetto stesso. Una procedura evento per un oggetto è una combinazione del nome 
dell'oggetto, un carattere di sottolineatura etc. 


22.11 Esecuzione di Routine Sub 


Nella scheda Visualizza della barra multifunzione, cliccare su Macro nel gruppo Macro e poi 

su Visualizza macro che aprirà la finestra di dialogo macro e, selezionare il nome della macro e fare clic 
su Esegui. È inoltre possibile aprire la finestra di dialogo macro facendo clic su Macro nel gruppo 
Codice nella scheda Sviluppo sulla barra multifunzione oppure utilizzare la combinazione di tasti Alt + 
F8 per aprire la finestra di dialogo macro. 


Tasto di scelta rapida: Per utilizzare il tasto di scelta rapida associato alla macro è necessario avere già 
assegnato un tasto alla macro che può essere fatto sia nel momento in cui si inizia la registrazione di 
una macro o poi selezionando il nome della macro nell'elenco delle macro presenti nella finestra di 
dialogo Macro e facendo clic sul pulsante Opzioni . 


Per eseguire una macro dall’editor di VBE si deve cliccare all'interno della procedura e premere F5 (0 
fare clic su Esegui nella barra dei menu) oppure dal menu Strumenti nella barra dei menu e cliccare su 
macro che apre la finestra di dialogo Macro, e selezionare il nome della macro e fare clic su Esegui per 
eseguirla. Ovviamente questi metodi non sono molto user friendly per eseguire le macro, un modo 
migliore per eseguire una macro potrebbe essere quella di fare clic su un pulsante accompagnate da un 
testo auto-esplicativo che appare sul foglio di lavoro 


Si consideri che è possibile assegnare una macro a qualsiasi controllo modulo agendo dalla scheda 
Sviluppo sulla barra multifunzione, fare clic su Inserisci nel gruppo Controlli, selezionare e fare clic su 
pulsante nei controlli modulo e quindi fare clic sul foglio di lavoro in cui si desidera posizionare 
l'oggetto, poi di deve fare clic col destro del mouse sul pulsante e selezionare Assegna macro nella 
finestra che appare dalla quale è possibile selezionare e assegnare una macro al pulsante 


22.12 Assegnare più Macro 


È possibile assegnare più macro a un oggetto, un'immagine o un controllo, chiamando altre procedure 
secondarie. Consultare di seguito, ad esempio, nella procedura secondaria (CommandButton1_Click) 
che viene eseguito facendo clic su un pulsante di comando, altre due procedure secondarie 
denominate Macro1 e Macro2 sono chiamate ed eseguite. In questo esempio le macro sono chiamati 
con i loro nomi, ma è possibile visualizzare tutte le macro facendo clic su macro nel gruppo di macro 
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(nella scheda Visualizza della barra multifunzione) e poi selezionando Visualizza macro. Ricordarsi di 
digitare i nomi di macro su righe separate durante la loro chiamata. 


Private Sub CommandButton1_Click () 
Macro1l 
Macro2 
End Sub 


23. Programmazione ad Oggetti: Metodi e Proprietà 


E’ bene ricordare che il VBA è un linguaggio di programmazione orientato agli oggetti che consente di 
gestire le applicazioni con semplicità e /a Programmazione ad Oggetti è un sistema di organizzazione del 
codice di un programma mediante raggruppamento all'interno di oggetti, ovvero singoli elementi che 
presentano Proprietà e Metodi, in pratica non è più il programma a gestire il flusso di istruzioni, ma 
sono gli oggetti che interagiscono tra di loro intervenendo sulle azioni del programma, introducendo il 
concetto di Evento che tratteremo nella prossima lezione. Per fare un esempio concreto, possiamo dire 
che tutto il mondo intorno a noi è pieno di oggetti: la tastiera, il mouse, lo schermo e così via, quello 
che contraddistingue un oggetto è una serie di caratteristiche o Proprietà, infatti il mouse è dotato di 
una rotellina e di due tasti, un oggetto, oltre alle proprietà, possiede anche dei Metodi ossia delle 
funzioni attraverso le quali esercitare delle azioni. 


Nell'esempio appena citato, (quello del mouse) tenendo premuto il tasto sinistro e facendo scorrere il 
mouse si seleziona una o più parole di una riga di testo. Riferendoci alla nostra cartella di lavoro 
possiamo dire che essa è costituita da oggetti di varia natura, come gli oggetti grafici o i controlli 
(finestre di dialogo, pulsanti ecc.) incollati su un foglio, ma non è questa la peculiarità di un foglio 
elettronico la cui ossatura è costituita, partendo dal livello più basso, da : 


celle 

intervalli 

fogli 

cartelle di lavoro 


» è 


Se osserviamo questo insieme di oggetti come un albero genealogico il capostipite, o il culmine, spetta 
all'oggetto, denominato Application, che rappresenta, tutti gli Oggetti di Excel. Si tratta appunto di 
Excel stesso. Proseguendo nella discesa genealogica troveremo i seguenti oggetti: 


v. L'oggetto Workbook : Che è la cartella di lavoro (cioè il nostro file) 
v. L'oggetto Worksheet : Che è il foglio di lavoro (Foglio1, Foglio2 ecc...) 
v. L'oggetto Range : Che è un intervallo di celle (A1: B12, C1:D12, ecc...) 


Ciascun oggetto fa parte di una famiglia o classe e l'accesso al singolo membro di ciascuna classe si 
effettua attraverso metodi, pluralistici, cioè da una pluralità di metodi che collaborano e interagiscono 
con i vari oggetti in maniera omogenea e ai quali corrispondono insiemi di oggetti inoltre i membri più 
elevati si possono omettere nel caso che il soggetto sia attivo 


Fin qui abbiamo delineato i componenti principali cercando di esporre come vengono interpretati dal 
Visual Basic applicato al foglio elettronico, ma l'obiettivo vero è quello di focalizzare gli oggetti che 
formano l'ossatura, il nucleo di uno spreadsheet (foglio di lavoro), al cui centro, vi sono intervalli e celle 
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con il loro contenuto di dati da elaborare o formule e il loro inquadramento nel mondo Visual Basic è 
fondamentale e aiuterà a capire meglio tutto il resto. Con queste sintassi 
Workbooks("Lezione2.xIs") e Worksheets("Foglio1") 


si individuano rispettivamente la cartella e il foglio di lavoro (notare i loro nomi virgolettati dentro le 
parentesi), ma dobbiamo però tenere presente che un elemento può anche venire individuato tramite 
un indice, il quale può essere o il numero di ordine o il nome fra virgolette, per capire meglio il 
concetto di indice possiamo dire che la sintassi Workbooks(2) e Workbooks("Lezione2.xIs") 

puntano entrambe alla stessa cartella Lezione2.xls a patto che questa sia la seconda fra quelle aperte 
contemporaneamente da Excel. Infatti se abbiamo solo la cartella Lezione2.xls aperta, la sintassi esatta 
diventa Workbooks(1). A questo punto è abbastanza chiaro che l'indice che usiamo fra parentesi 
nell'oggetto Workbooks varia ed è strettamente legato al numero di cartelle aperte nel momento 
dell'esecuzione di questa istruzione, pertanto è possibile scrivere questa istruzione in tre diversi modi: 


v. Application.Workbooks(1).Worksheets(1).Range("A1:B 10") 
v. Application.Workbooks("Lezione2.xls").Worksheets(1 ).Range("A1:B10") 
v. Application.Workbooks("Lezione2.xls").Worksheets(" Foglio1").Range("A1:B10") 


Poco sopra abbiamo che i membri più elevati si possono omettere quando sono attivi, per cui: 


v Se abbiamo Excel aperto 
v Se la cartella Lezione2.xls è aperta 
v__ Se infine ci troviamo nel Foglio1 


Possiamo ridurre tutto il listato ad un semplice Range("A1:B10"), in caso contrario credo che sia 
abbastanza chiaro come agire usando gli indici per individuare il nostro intervallo (o Range). Si deve 
inoltre prestare attenzione alle proprietà "pluralistiche" che poco sopra abbiamo citato: le prime volte 
è facile scordarsi del plurale, scrivendo Workbook("Lezione2.xls") anziché Workbooks("Lezione2.xIs") 
oppure Worksheet("Foglio1") invece di Worksheets("Foglio1"). 


Vediamo qualche esempio di codice da applicare a quanto esposto finora, ma sopratutto vediamo 
come automatizzare l'esecuzione di routine creando un pulsante, ad esempio apriamo la nostra cartella 
("Lezione2.xls") e rientriamo nel Visual Basic Editor. Questa volta scriveremo noi una macro 
direttamente senza affidarci all'aiuto del Registratore di macro utilizzato nella precedente lezione. 
Ponendoci al di sotto dell'ultima riga della macro precedente (basta porre il cursore alla fine di End Sub 
e premere una o due volte Invio), scriviamo il seguente codice 


Sub Nascondi_Foglio() 
Worksheets(2).Visible = False 
MsgBox "Il Foglio 2 è sparito" 
End Sub 


Commentiamo questo codice: La routine inizia con Sub (seguito dal nome della routine) e termina 
con End Sub. L'oggetto Worksheets(2) ossia il Foglio 2, è seguito da una sua proprietà che si evidenzia 
con .visible, si richiama perciò la proprietà visible che consente al foglio di essere visibile o meno a 
seconda del fatto che tale proprietà sia dichiarata vera [True] o falsa [False] (nel nostro caso è stata 
dichiarata uguale a False per cui indica che il foglio sarà nascosto). 


MsgBox "Il Foglio 2 è sparito" è invece una funzione di VBA che permette di mostrare all'utente un 


messaggio che nella sua forma più semplice riporta un messaggio di avviso per l'utente (il testo 
racchiuso fra virgolette) ed un bottone di OK necessario per la sua chiusura 
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Torniamo ora ad Excel e facciamo click col destro del mouse sulla barra degli 
strumenti, ci comparirà un box con delle voci, scegliamo Moduli. Ci comparirà un 
nuova barra flottante che possiamo ancorare alle altre barre degli strumenti 
semplicemente trascinandocela. 


Premiamo sul pulsante evidenziato dalla freccia rossa e poi spostandoci sul foglio di 
lavoro teniamo premuto il pulsante di sinistra del mouse, trasciniamolo fino a 
raggiungere le dimensioni desiderate ed al rilascio ci comparirà il nostro pulsante. 
Contestualmente si aprirà anche la finestra per assegnare la macro 
(Nascondi_Foglio) al pulsante appena creato 


Pulsante 1 Stessa operazione e identico risultato si 

___| puòottenere inserendo un'immagine sul 
"Assegna macro foglio (si dovrà attivare la barra degli 
strumenti Disegno) e quindi tramite il solito 
menu contestuale ottenuto cliccando col 
destro sull'immagine, assegnargli la macro. 
Annulla Possiamo ridimensionare il pulsante, 


editarne il testo, cambiarne i caratteri etc. 
Uovo 


Nome macro: 


facendo clic sopra al pulsante stesso col 
Registra,,, pulsante destro del mouse e scegliere, tra 
le voci del menù contestuale che compare, 
quella di cui abbiamo bisogno. 


Pulsante 1 


Taglia : Se invece vogliamo spostare il pulsante, facciamo ancora clic col destro 


Cia del mouse, sparirà il menù contestuale e rimarrà evidenziato il pulsante 


Incolla . sha 
Possiamo allora spostarlo a piacimento e 


Modifica testo ridimensionarlo trascinandolo negli angoli 
fusa Alex 


Ordine 


Assegna macro... 


Formato controllo... 


Personalizzazione barra multifunzione e nel box Personalizza barra Multifunzione mettere 


Io) Per versioni di Excel superiori alla 2003 si deve seguire il percorso : File - Opzioni - 
==" il flag al campo Sviluppo, come da figura sottostante 
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eo 
SDOZIO 


Schede principali 

E) [|M] Hom 
Appunti 
Carattere 
Allineamento 
Numeri 
Stili 


Generale 


Formule 


Strumenti di correzione 


Celle 


Salvataggio Modifica 


[V] Inserisci 

[V] Layout di pagina 
Formule 

Dati 

Revisione 

[V] Visualizza 

Sviluppo 

Componenti aggiuntivi 


Lingua 


Impostazioni avanzate 


Barra di accesso rapido 


HBEEEEEEE 


Revisione Visualizza Sviluppo 


de (@ Proprietà A questo punto è comparso un altro menu nella barra 
GE Visualizza codic multifunzione, il menu Sviluppo, tramite il sotto 
Modalità menu Inserisci scegliere il pulsante e procedere come 


progettazione A Esegui finestra ( w 
TR Tontrolli spiegato poco sopra per la Ver. 2003 


in questo caso si procede in questo modo: dal menu Inserisci - Forme, scegliere il 

rettangolo e disegnarlo sul foglio, a operazione compiuta verrà riportata in automatico la 
finestra delle macro, in alternativa è possibile farla comparire cliccando col tasto destro del mouse 
sulla forma e nel menù che compare scegliere la voce Assegna Macro 


Ì E’ possibile usare una forma geometrica invece di un pulsante a cui assegnare una macro, 


Calibri (C> (11 «\A°_X° #2 # Inserisci | Layout di pagina Formule Dati 


re sla 


ella] 
DE | Forme utilizzate di recente 
agine inte E, è “ 1©® 4 ALUÙD E (1, 
Iustrai @ NAL 3 
TL | Linee 
-_DSSRRRENII E 


Modifica testo TODADDAALO 


Modifica punti 


ggruppa 

Porta in primo piano 

Porta in secondo piano 
Collegamento ipertestuale... 


Assegna macro... 


Imposta come forma predefinita 
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Possiamo ora mandare in esecuzione la macro stessa semplicemente cliccando sul pulsante appena 
creato, adesso il foglio è sparito, come facciamo a farlo riapparire? Basta creare una nuova macro che 
assoceremo ad un altro pulsante, con le stesse modalità di costruzione della precedente: 


Sub Mostra_Foglio() 
Worksheets(2).Visible = True 
MsgBox "Il Foglio 2 è Ricomparso" 
End Sub 


24. Passaggio di argomenti alle procedure 


Quando un valore esterno deve essere utilizzato da una procedura per eseguire un'azione, si passa alla 
procedura da variabile. Queste variabili che sono passate a una procedura sono chiamate argomenti 
che rappresenta il valore fornito dal codice chiamante a una procedura. Nella sintassi di dichiarazione 
della procedura compaiono degli elementi racchiusi tra parentesi quadre: sono i parametri o argomenti 
e quando il set di parentesi, dopo il nome della procedura nella dichiarazione Sub o la dichiarazione 
Function, sono vuoti, si tratta di un caso in cui la procedura non riceve argomenti. Tuttavia, quando gli 
argomenti sono passati a una procedura da altre procedure, allora questi sono elencati o dichiarati tra 
le parentesi. 


| parametri hanno un ordine posizionale, vanno elencati separati da una virgola e devono rispettare il 

tipo di dato specificato nella dichiarazione, inoltre possono essere “passati” come valori fissi o tramite 
variabili. In sostanza occorre dare un nome ad ogni parametro e specificare il tipo di dato che conterrà 
(come per le variabili), se ne indichiamo più di uno occorre elencarli di seguito separati da una virgola. 


24.1 Tipo di argomenti di dati 


Nell'esempio che segue la dichiarazione della funzione ‘voto’ contiene una variabile di tipo Integer 
passata come argomento e restituito un valore di tipo String. E° bene ricordare che solitamente si 
dichiara il tipo di dati per gli argomenti passati a una procedura, nel caso venisse omessa questa 
dichiarazione, il tipo di dati predefinito che VBA assegna è di tipo Variant. 


Function voto(votazione As Integer) As String 
If votazione >= 80 Then 


voto = "A" 

Elself votazione >= 60 Then 
voto = "B" 

Elself votazione >= 40 Then 
voto = "C" 

Else 

voto = "Pessimo" 

End If 


End Function 
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Sub callvoto() 

Dim i As Integer 

Dim str As String 

i = InputBox("Inserisci il voto per Marco") 
str = voto(i) 

MsgBox "La valutazione di Marco è :" & str 
End Sub 


Nella routine callvoto è stata chiamata la funzione voto e il risultato ottenuto assegnato alla variabile 
str variabile. Nell'esempio sottostante la dichiarazione della funzione votiPercent contiene due variabili 
come argomenti, con un valore Double come tipo di dati di ritorno. 


Function votiPercent(voti As Integer, Totalvoti As Integer) As Double 
votiPercent = voti / Totalvoti * 100 

votiPercent = Format(votiPercent, "#.##") 

End Function 


Sub callvoti_1() 

Dim voti As Integer 

Dim Totalvoti As Integer 

Dim pent As Double 

voti = InputBox("Inserisci Voti") 

Totalvoti = InputBox("Inserisci Totale Voti") 

pcent = votiPercent(voti, Totalvoti) 

MsgBox "La percentuale è del :" & "" & pent & "%" 
End Sub 


L'ordine posizionale è anche quello che ci servirà per riferirci ad essi quando utilizziamo la procedura. E' 
possibile passare dei parametri alle procedure ed alle funzioni in due modi: 


v.. Passaggio per riferimento (ByRef ). Si utilizza quando all’interno della procedura il valore del 
parametro viene modificato e, alla procedura chiamante, serve il valore di ritorno modificato 

v. Passaggio per valore (ByVal). Il valore del parametro, ritorna alla procedura chiamante con il 
suo valore originale, anche se viene modificato all’interno della procedura. 


24.2 Passaggio di argomenti per valore 


Quando si passa un argomento per valore in una procedura, solo una copia di una variabile viene 
passata e qualsiasi modifica del valore della variabile nella procedura corrente non influenza o modifica 
la variabile stessa nella sua posizione originale perché la variabile stessa non è accessibile. Per passare 
un argomento per valore, si deve utilizzare la parola chiave ByVal. 

Vediamolo con un esempio 


Sub Prova_1() 
Dim x As Integer 
x=5 

MsgBox x 

Call Aggiungi 1 (x) 
MsgBox x 

End Sub 
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Sub Aggiungi _1(ByVal i As Integer) 
i=i+1 
End Sub 


In questo codice viene assegnato il valore ‘5’ alla variabile x che tramite la funzione MsgBox ne riporta il 
valore sullo schermo, successivamente viene chiamata la procedura ‘Aggiungi_1’ che prende come 
valore in entrata una copia del valore della variabile x e lo incrementa di 1 unità. Questo passaggio non 
ha effetto sul contenuto della variabile x, infatti quando viene stampato a video il valore di ritorno il 
valore di x è sempre 5. Modifichiamo le istruzioni in questo modo 


Sub Prova_2() 
Dim x As Integer 
x=5 

MsgBox x 

Call Aggiungi 2 (x) 
MsgBox x 

End Sub 


Sub Aggiungi _2(ByRef i As Integer) 
i=i+1 
End Sub 


Questa volta la variabile è stata passata per riferimento Questo significa che la procedura va a 
modificare il contenuto della variabile x Infatti alla fine dell’elaborazione il valore di x è stato 
incrementato e vale 6. Bisogna fare attenzione che di default il VBA considera le variabili passate per 
riferimento e quindi ciò che si modifica in una procedura ha effetto sulla variabile che viene passata. 
Ognuna delle due modalità risulta vantaggiosa se applicata con una finalità opportuna, Il passaggio per 
valore permette di essere sicuri che la procedura non modificherà le variabili contenute nel programma 
che sta usando tali procedure, mentre Il passaggio per riferimento è più veloce perché non deve 
eseguire una copia. Inoltre il passaggio per riferimento permette di agire su un numero arbitrario di 
variabili 


Mentre una funzione può restituire un unico valore al termine della sua esecuzione, una procedura può 
prendere in ingresso per riferimento più variabili e modificarne tutti i valori, tuttavia l’uso delle funzioni 
permette di utilizzare il nome della funzione stessa all’interno di espressioni più complesse 


Function calcola_comm(ByVal comm_tass As Double, ByVal vendite As Currency) As Currency 
calcola comm = comm. tass * vendite 
End Function 


Sub vendite_marco() 

Dim comm_marco As Currency 

Dim comm. tass As Double 

Dim vendite As Currency 

comm_tass = InputBox("Inserisci tasso commissione") 
vendite = InputBox("Inserisci Importo Vendite") 
comm_ marco = calcola comm(comm_tass, vendite) 
MsgBox "La commissione è di" & "" & comm_marco 
End Sub 
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24.3 Passaggio di argomenti per riferimento 


Quando si passa un argomento per riferimento in una procedura, la variabile stessa accede alla 
procedura e il valore della variabile viene modificato in modo permanente dalla procedura stessa. Per 
passare un argomento per riferimento, si deve utilizzare la parola chiave ByRef prima l'argomento da 
passare, inoltre il passaggio di argomenti per riferimento è anche l'impostazione predefinita in VBA, a 
meno che non sia esplicitamente specificato di passare un argomento per valore. 


Function numero(ByVal i As Integer) As Long 
j=5 

numero = i 

End Function 

Sub prova_numero() 

Dim n As Integer 

MsgBox numero(n) 

MsgBox n 

End Sub 


In questo esempio la variabile numero restituisce il valore di 5 in quanto è la funzione numero che 
assegna un valore alla variabile n, ma poiché la variabile è stata passata per valore nella funzione, 
qualsiasi modifica dello stesso rimane nella funzione corrente e quando la funzione termina, il valore 
della variabile n ritornerà al valore di quando è stata dichiarata, che era pari a 0. Infatti con il secondo 
messaggio viene riportato il valore 0. Se la variabile fosse stata passata per riferimento nella funzione, 
la variabile n avrebbe definitivamente assunto il nuovo valore assegnato. 


In questo esempio invece si vede il passaggio di un argomento per riferimento in una procedura 
utilizzando la parola chiave ByRef 


Function numero_1(ByRef i As Integer) As Long 
j=5 

numero_1=i 

End Function 

Sub prova_numero_1() 

Dim n As Integer 

MsgBox numero_1(n) 

MsgBox n 

End Sub 


Il valore della variabile n è impostato a 0 quando viene dichiarata e il messaggio restituito è 5 perché il 
richiamo della funzione numero_1, assegna un valore alla variabile n (5) e il messaggio successivo 
restituisce ancora 5, perché la variabile è stata passata per riferimento nella funzione numero_1, e ha 
definitivamente assunto il nuovo valore assegnato dalla funzione numero_1 


24.4 Argomenti facoltativi 


Gli argomenti possono essere specificati come facoltativi, utilizzando la parola chiave Optional prima 
dell'argomento e quando si specifica un argomento con optional, tutti gli argomenti seguenti devono 
essere specificati come Optional. Si noti che specificando la parola chiave Optional rende un 
argomento opzionale altrimenti sarà richiesto l'argomento. 


Lo 


Microsoft” 


for Applications 


L'argomento opzionale dovrebbe essere, anche se non necessario, dichiarato come tipo di 

dati Variant per consentire l'uso della funzione IsMissing che funziona solo quando viene utilizzato con 
le variabili dichiarate come Variant. La funzione IsMissing viene utilizzata per determinare se 
l'argomento opzionale è stata accettata nella procedura o meno, in modo da regolarsi di conseguenza 
nel codice senza restituire un errore. Se l'argomento opzionale non è dichiarato come Variant, la 
funzione IsMissing non funziona, e all'argomento opzionale verrà assegnato e il valore predefinito per il 
tipo di dati che è O per le variabili di tipo numerico (cioè Integer, Double, etc.) e Nothing per String o 
variabili di tipo Object. 


‘Dichiarazione della routine con due argomenti Optional 

Sub dip_nome1(Optional primo As String, Optional secondo As String) 
ActiveSheet.Range("A1") = primo 

ActiveSheet.Range("B1") = secondo 

End Sub 


Sub nome_pieno1() 

Dim nome1 As String 

Dim nome2 As String 

nome1 = InputBox("Inserisci il primo Nome") 
nome2 = InputBox("Inserisci il secondo Nome") 
Call dip nome1(nome1, nome2) 

End Sub 


‘Dichiarare l'argomento Optional come String, senza utilizzare la funzione IsMissing. 
Sub dip_nome2(Optional primo As String, Optional secondo As String) 
ActiveSheet.Range("A1") = primo 

ActiveSheet.Range("B1") = secondo 

End Sub 


Sub nome_pieno2() 

Dim nome1 As String 

nome1 = InputBox("Inserisci il primo Nome") 
Call dip _nome2(nome1) 

End Sub 


La dichiarazione della routine contiene due argomenti, il secondo argomento è specificato come 
Optional. Si noti in questo esempio che l'argomento opzionale viene dichiarato come String e non è 
passato nella procedura, di conseguenza il Range ("B1"), conterrà un riferimento Null dopo aver 
eseguito la sub dip_nome2 perché all'argomento opzionale verrà assegnato il valore di default per il 
suo tipo di dati (String), che è Nothing cioè un riferimento Null. Se l'argomento opzionale viene 
dichiarato come Integer, Range ("B1") conterrà zero dopo l'esecuzione della sub dio_nome2 in quanto 
all'argomento opzionale verrà assegnato il valore predefinito per il suo tipo di dati che è pari a zero. 


‘ Dichiarare l'argomento Optional come Variant, e utilizzare la funzione IsMissing. 
Sub dividil(primo_n As Integer, Optional secondo_n As Variant) 
Dim result As Double 

If IsMissing(secondo_n) Then 

result = primo_n 

Else 

result = primo_n / secondo_n 

End If 

result = Format(result, "#.##") 

MsgBox result 

End Sub 
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Sub chiama_dividi1() 

Dim numero1 As Integer 

numero1 = InputBox("Inserire il primo Numero") 
Call dividil(numero1) 

End Sub 


La dichiarazione della routine contiene due argomenti, il secondo argomento è specificato come 
Optional. L'argomento opzionale dovrebbe essere (anche se non necessario), dichiarato come tipo di 
dati Variant per consentire l'uso della funzione IsMissing. 


‘Dichiarare argomento Optional come Integer, IsMissing restituirà un errore. 
Sub dividi2(primo_n As Integer, Optional secondo_n As Integer) 
Dim result As Double 

If IsMissing(secondo_n) Then 

result = primo_n 

Else 

result = primo_n / secondo_n 

End If 

result = Format(result, "#.##") 

MsgBox result 

End Sub 


Sub chiama_dividi2() 

Dim numero_1 As Integer 

numero_1 = InputBox("Inserisci il primo Numero") 
Call dividi2(numero_1) 

End Sub 


La dichiarazione della routine contiene due argomenti, il secondo argomento è specificato come 
Optional. L'argomento opzionale viene dichiarato come Integer, ma la funzione /sMissing non 
funzionerà con una variabile non dichiarata come Variant. Quindi all'argomento opzionale verrà 
assegnato il valore predefinito per il tipo di dati che è O per i tipi di dati numerici e il codice restituirà 
l'errore: Errore di run-time "11": Divisione per zero. 


‘Dichiarare argomento Optional come String, la funzione IsMissing restituirà un errore. 
Sub dividi3(primo_n As Integer, Optional secondo_n As String) 
Dim result As Double 

If IsMissing(secondo_n) Then 

result = primo_n 

Else 

result = primo_n / secondo_n 

End If 

result = Format(result, "#.##") 

MsgBox result 

End Sub 


Sub chiama_dividi3() 

Dim numero1 As Integer 

numero1 = InputBox("Inserisci il primo Numero") 
Call dividi3(numero1) 

End Sub 


La dichiarazione della routine contiene due argomenti, il secondo argomento è specificato come 
Optional. L'argomento opzionale viene dichiarato come stringa, ma la funzione IsMissing non 
funzionerà con una variabile non dichiarata come tipo di dati Variant. Quindi all'argomento opzionale 
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verrà assegnato il valore predefinito per il tipo di dati che è Nothing (un riferimento Null) per il tipo di 
dati String e il codice restituirà l'errore: Errore di run-time "13": Tipo non corrispondente. 


24.5 Specificare un valore predefinito per un argomento facoltativo 


È possibile specificare un valore predefinito per un argomento opzionale che sarà utilizzato se 
l'argomento opzionale non viene passato alla procedura. In questo modo è possibile dichiarare gli 
argomenti opzionali di qualsiasi tipo di dati e specificare un valore predefinito che sarà utilizzato se 
l'argomento opzionale viene omesso, evitando l'uso della funzione IsMissing che funziona solo con il 
tipo di dati Variant. 


‘ Argomento opzionale non passato alla procedura: si utilizza un valore predefinito. 
Sub dividi4(primoN As Integer, Optional secondoN As Integer = 3) 

Dim result As Double 

result = primoN / secondoN 

result = Format(result, "#.##") 

MsgBox result 

End Sub 


Sub calcula_2() 

Dim numero1 As Integer 

numero1 = InputBox("Inserisci il primo Numero") 
Call dividi4(numero1) 

End Sub 


La dichiarazione della routine contiene due argomenti, il secondo argomento è specificato come 
Optional. Se il secondo argomento, che è opzionale, non è passato nella procedura un valore 
predefinito viene utilizzato: 


24.6 Passare un numero indefinito di argomenti — parametro Array 


Abbiamo visto come dichiarare procedure passando argomenti, tra cui argomenti opzionali, ma 
comunque sempre limitati al numero di argomenti dichiarati nella procedura. Usando la parola 

chiave ParamArray sarà consentito passare un numero arbitrario di argomenti alla procedura in modo 
che vengano accettati un numero indefinito di argomenti. Utilizzare ParamArray quando non si è sicuri 
del numero preciso di argomenti da passare a una procedura, e potrebbe anche essere conveniente 
creare un array opzionale (cioè un ParamArray) che passare attraverso il fastidio di dichiarare un gran 
numero di argomenti opzionali, e quindi utilizzando la funzione /sMissing con ciascuno di essi. 


Una procedura utilizza le informazioni sotto forma di variabili, costanti ed espressioni per effettuare 
azioni ogni volta che viene chiamata e tramite la dichiarazione del procedimento si definisce un 
parametro che consente al codice chiamante di passare un argomento, o il valore di tale parametro, in 
modo che ogni volta che la routine viene chiamata il codice chiamante può passare un argomento 
diverso per lo stesso parametro. Un parametro viene dichiarato come una variabile specificando il 
nome e il tipo di dati. Dichiarando una matrice di parametri, la procedura può accettare una matrice di 
valori per un parametro. Una matrice di parametri è così definita utilizzando la parola chiave 
ParamArray. 


ParamArray può essere definita in una procedura ed è sempre l'ultimo parametro nell'elenco dei 
parametri può essere opzionale o facoltativo in una procedura e deve essere dichiarato come un array 
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di tipo Variant. Indipendentemente dall'impostazione Option Base per il modulo, LBound di un 
ParamArray sarà sempre 0 e il valore indice per l'array partirà da 0. ByVal, ByRef o keywords sono 
opzionali e non possono essere utilizzate con ParamArray. 


Per accedere al valore di una matrice di parametri si utilizza la funzione UBound per determinare la 
lunghezza dell'array che vi darà il numero di elementi o valori di indice nella matrice. Nel codice della 
procedura si può accedere al valore di una matrice di parametri digitando il nome dell'array seguito da 
un valore di indice (che dovrebbe essere compreso tra 0 e il valore UBound) 


‘Passare un numero arbitrario di argomenti utilizzando un parametro ParamArray. 
Sub aggiungiN(ParamArray numeri() As Variant) 

Dim somma As Long 

Dim i As Long 

For i = LBound(numeri) To UBound(numeri) 

somma = somma + numeri(i) 

Next i 


MsgBox somma 
End Sub 


Sub chiama_aggiungiN() 
Call aggiungiN(22, 25, 30, 40, 55) 
End Sub 


25. Lavorare con le date in VBA 


Microsoft Excel tramite Il linguaggio Visual Basic, offre una vasta gamma di funzioni per poter creare e 
manipolare le date ed è possibile inserire una data in qualsiasi formato leggibile, ad esempio usando lo 
stile americano (mese-giorno-anno) o il formato europeo (giorno-mese-anno), dipende dalle 
impostazioni internazionali del vostro sistema 


Per memorizzare una data o un orario, e necessario definire una variabile di tipo Date e assegnare un 
valore alla variabile, con una sintassi particolare che prevede di inserire la data tra due caratteri 
"cancelletto" (#): per esempio, il 10 agosto 2015, può essere scritto: 

Codice: 


Sub Prova() 

Dim Mydata As Date 

Mydata = #10/8/2015# 

MsgBox ("La data corrente è : " & Mydata) 
End Sub 


= 
Microsoft Excel E riporterebbe questo messaggio 


Come si può notare nel codice la data è inserita nel formato 
americano, cioè viene espressa nella forma Mese/Giorno/Anno, 
perchè, le istruzioni in VBA sono in inglese, ma verrà convertita 
nel formato inserito nel sistema per cui nel box appare la data 
scritta all'italiana :10/08/2015. 


La data corrente è : 10/08/2015 
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La visualizzazione del formato della data dipende dalle impostazioni di settaggio 
Mi) contenute nel Pannello di Controllo seguendo il percorso: Pannello di controllo - 
Impostazioni Internazionali - Data oppure per Windows 7 o superiori dal percorso: 
Pannello di controllo - Paese e lingua 


Per ottenere la data corrente del computer, è possibile richiamare la funzione Date in questo modo: 


Sub Prova() 
MsgBox Date 
End Sub 


Quando si compone un valore data, è necessario seguire alcune regole che dipendono dalla lingua che 
si sta utilizzando. Vediamo quelle Italiane, dove un mese è riconosciuto da un indice in un intervallo da 
1a 12 e ha anche un nome che può essere rappresentato in due formati: completo o breve. 


Inoltre una settimana è una combinazione di 7 giorni 
consecutivi di un mese, per cui ogni giorno può essere 
riconosciuto da un indice da 1 a 7 e il giorno di ciascun indice 
è riconosciuto da un nome, dove il primo giorno ha un indice 
di1esichiama Domenica, mentre l'ultimo giorno ha un indice 
di 7 si chiama Sabato. Come i mesi di un anno, i giorni di una 
settimana hanno nomi completi e brevi. 


Abbiamo visto che, durante la creazione di una data, è 
possibile includere il suo valore tra i segni #. Un'alternativa è 
quella di fornire una data come una stringa. A sostegno di 
questa, il linguaggio Visual Basic fornisce una funzione 
chiamata DateValue la cui sintassi è: 


Function DateValue(ByVal StringDate As String) As Variant 


Quando si chiama questa funzione, si deve fornire una data valida come argomento. La validità dipende 
dalla lingua del sistema operativo. Ecco un esempio: 


Sub Prova () 
Dim data1 As Date 
data1 = DateValue("22-Ago-2010") 
MsgBox ("La Data impostata è : " & data1) 
End Sub 
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fc . È n 
Niccolai E porterebbe a video un messaggio come quello a fianco 


La Data impostata è : 22/08/2010 


Un'alternativa a inizializzare una variabile data è quella di 
utilizzare una funzione denominata DateSerial, la sua sintassi è: 


Function DateSerial(ByVal [Year] As Integer, ByVal [Month] As Integer, ByVal [Day] As Integer) As 
Variant 


Questa funzione consente di specificare l'anno, il mese, il giorno di un valore di data, ovviamente senza 
i segni #. Quando è stata chiamata, questa funzione restituisce un valore di tipo Variant, che può essere 
convertita in una data . Ecco un esempio: 


Sub Prova() 

Dim data1 As Date 

data1l = DateSerial(2010, 2, 8) 

MsgBox ("La Data impostata è : " & data1) 
End Sub 


lai 
Microsoft Excel 


E riporterebbe questo messaggio: 


La Data impostata è: 08/02/2010 
Quando si passa il valore di questa funzione, è necessario 


limitare ogni componente per l'intervallo consentito di valori. È 
possibile passare l'anno con due cifre da 0 a 99. Ecco un 
esempio: 


Sub Prova() 

Dim data1l As Date 

data1 = DateSerial(3, 2, 8) 

MsgBox ("La Data impostata è : " & data1) 
End Sub 


Se si passa l'anno come un valore compreso tra 0 e 99, l'interprete rimanda all'orologio del computer 
per ottenere il secolo. 


Il mese deve essere un valore compreso tra 1 e 12, e se si passa un valore superiore a 12, l'interprete 
dovrebbe calcolare il resto di quel numero da 12 (il numero MOD 12 =?). Il risultato della divisione 
intera sarebbe stato usato come il numero di anni e aggiunto al primo argomento. Il resto sarebbe 
stato usato come il mese del valore data. Ad esempio, se si passa il mese come 18, la divisione intera 
produrrebbe 1, quindi 1 anno sarebbe stato aggiunto al primo argomento. Il resto è 6 (18 MOD 12 = 6); 
così il mese sarebbe stato usato come 6 (Giugno). Ecco un esempio: 


Sub Prova() 

Dim data1 As Date 

data1 = DateSerial(2003, 18, 8) 

MsgBox ("La Data impostata è : " & data1) 
End Sub 
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l Microsoft Excel e riporta questo messaggio 


Per fare un altro esempio, se si passa il mese come 226, la 
divisione intera (226 / 12) produce 18 e il numero sarebbe 
stato aggiunto al primo argomento (2003 + 18 = 2021). Il resto 
di 226 a 12 è 10(226 MOD 12 = 10) e sarebbe stato utilizzato 
come il mese. Ecco un esempio: 


La Data impostata è : 08/06/2004 


Sub Prova() 

Dim data1 As Date 

datal = DateSerial(2003, 226, 8) 

MsgBox ("La Data impostata è : " & data1) 
End Sub 


fr . . 
Microsoft Excel e riporta questo avviso: 


Se il mese è passato come 0, si considera 12 (dicembre), 
mentre se è passato come -1, è considerato 11 (novembre) 
dell'anno precedente e così via. Se il mese è passato come un 
numero inferiore a -11, l'interprete avrebbe calcolare la 
divisione intera a 12, aggiungendo 1 a questo risultato e 
utilizzando tale numero come l'anno, calcolando il resto a 12, e 


La Data impostata è : 08/10/2021 


usandolo come mese. 


A seconda del mese, il valore dell'argomento giorno può essere passato come un numero compreso tra 
le28,trale29,tra1e 30, o tra 1 e 31. Se l'argomento giorno viene passato come un numero 
inferiore a 1 o superiore a 31, l'interprete utilizza il primo giorno del mese passato come secondo 
argomento. Se il giorno è passato come -1, il giorno è considerato l'ultimo giorno del mese precedente 
del mese in discussione. Ad esempio, se l'argomento mese è passato come 4 (aprile) e l'argomento 
giorno è passato come -1, l'interprete avrebbe usato 31 come giorno perché l'ultimo giorno del mese di 
marzo è 31. 


Se l'argomento mese è passato come 3 (marzo) e l'argomento giorno è passato come -1, l'interprete si 
riferirebbe all'argomento Anno per determinare se l'anno è bisestile o meno. Ciò consentirebbe 
all'interprete di utilizzare sia 28 o 29 per il valore del giorno. L'interprete utilizza questo algoritmo per 
qualsiasi valore giorno passato come terzo parametro quando il numero è inferiore a 1. Se il Giorno 
argomento è passato con un valore superiore a 28, 29, 30, o 31, l'interprete usa questo stesso 
algoritmo in senso inverso per determinare il mese e il giorno. 


25.1 Conversione di un valore in data 


Se si dispone di un valore come quello fornito come una stringa e si desidera convertirlo in una data, è 
possibile richiamare la funzione CDate la cui sintassi è: Function CDate(Value As Object) As Date 


Questa funzione accetta qualsiasi tipo di valore, ma il valore deve essere convertibile in una data 
valida. Se la funzione riesce nella conversione, produce un valore Date. Se la conversione non riesce, si 
verifica un errore. Come abbiamo visto finora, una data è un valore composto da tre parti: l'anno, il 
mese e il giorno. L'ordine di questi componenti e il modo in cui sono messi insieme per costituire una 
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data riconoscibile dipendono dalla lingua e vengono definiti nel linguaggio e nelle Impostazioni 
internazionali nel Pannello di controllo. 


25.2 L’anno di una data 


Il linguaggio Visual Basic supporta l'anno di una data che va da 1 a 9999. Ciò significa che questa è il 
Range che si può considerare quando si tratta di date nei fogli di lavoro. Nella maggior parte delle 
operazioni, durante la creazione di una data, se si specifica un valore compreso tra 1 e 99, l'interprete 
avrebbe usato il secolo in corso per la sinistra due cifre, ciò significa che, un anno come 4 0 04 
indicherebbe l'anno 2004. Nella maggior parte dei casi, per essere più precisi, di solito dovrete 
specificare sempre l'anno con 4 cifre. 

Se si dispone di un valore di data e si vuole scoprire l’anno, è possibile richiamare la funzione Year, la 
cui sintassi è: Public Function Year(ByVal DateValue As Variant) As Integer 


Questa funzione assume un valore di data come argomento e dovrebbe contenere una data valida. In 
caso affermativo, la funzione restituisce l'anno in forma numerica di una data. 


Sub Prova() 

Dim data1 As Date 

data1 = #2/8/2004# 

MsgBox ("Sono nata nell'anno " & Year(data1)) 
End Sub 


Ò 
Microsoft Excel Mostrando questo avviso 


Sono nata nell'anno 2004 


25.3 Il Mese di un anno 


La parte del mese di una data è un valore numerico che va da 1 a 12 e quando si crea una data, è 
possibile specificarlo con 1 o 2 cifre. Se il mese è compreso tra 1 e 9, è possibile precederlo con uno 0. 
Se si dispone di un valore data e vuole ottenere il suo mese, è possibile chiamare la funzione Month, la 
cui sintassi è: Function Month(ByVal DateValue As Variant) As Integer 

Questa funzione richiede un oggetto Data come argomento e se la data è valida, la funzione restituisce 
un numero compreso tra 1 e 12 per il mese. Ecco un esempio: 


Sub Prova() 

Dim data1 As Date 

datal = #2/8/2004# 

MsgBox ("Il mese scelto è " & Month(data1)) 
End Sub 
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Microsoft Excel Ciò produrrebbe questo messaggio 


La funzione Month produce un valore numerico che rappresenta il mese di 
una data, se invece si vuole ottenere il nome del mese, è possibile chiamare 


la funzione MonthName, la sintassi è: 


Nr: Function MonthName(ByVal Month As Integer, Optional ByVal Abbreviate 


As Boolean = False) As String 


Il mese scelto è 2 


Questa funzione richiede due argomenti di cui uno opzionale. L'argomento richiesto deve 
rappresentare il valore di un mese e se è un valore valido, questa funzione restituisce il nome 


corrispondente. Ecco un esempio: 


Sub Prova() 
Dim data1 As Date 
datal = #2/8/2004# 
MsgBox ("Il mese scelto è " & MonthName(Month(data1))) 


End Sub 


n 
Microsoft Excel E riporta questo messaggio 


Il secondo argomento consente di specificare se si desidera ottenere il 
nome breve o completo del mese. Il valore predefinito è il nome 
completo e in questo caso il valore predefinito dell'argomento è False, 
mentre se si desidera ottenere il nome breve, si deve passare il 
secondo argomento come True . Ecco un esempio: 


Il mese scelto è febbraio 


Sub Prova() 
Dim data1 As Date 


data1l = #2/8/2004# 
MsgBox ("Il mese scelto è " & MonthName(Month(data1), True)) 


End Sub 


lai 
Microsoft Excel e questo è quanto produrrebbe: 


Il mese scelto è feb 


[ti] 


25.4 Il giorno di un mese 


Il giorno è un valore numerico in un mese e a seconda del mese (e dell'anno), il suo valore può variare 
da 1 a 29 (febbraio bisestile), da 1 a 28 (Febbraio in un anno non bisestile), da 1 a 31 (gennaio, marzo, 
maggio, luglio, agosto, ottobre e dicembre), o da 1 a 30 (aprile, giugno, settembre e novembre). 

Se si dispone di un valore di data e volete sapere il giorno in un anno, è possibile richiamare la 
funzione Day, la cui sintassi è: Function Day(ByVal DateValue As Variant) As Integer 
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Questa funzione richiede una data come argomento e se la data è valida, la funzione restituisce il 
giorno numerico del mese dell'argomento data. Ecco un esempio: 


Sub Prova() 

Dim data1 As Date 

data1 = #2/8/2004# 

MsgBox ("Il mese scelto è " & Day(data1)) 
End Sub 


25.5 Il giorno della settimana 


Per ottenere il nome del giorno della settimana, è possibile usare una funzione denominata 
WeekdayName, la cui sintassi è: 


Function WeekdayName( ByVal Weekday As Integer, Optional ByVal Abbreviate As Boolean = False, 
Optional ByVal FirstDayOfWeekValue As Integer = 0) As String 


Questa funzione richiede un argomento obbligatorio e due opzionali. L'argomento obbligatorio deve 
essere un valore compreso tra 0 e 7. Se si passa 0, l'interprete si riferisce alla lingua del sistema 
operativo per determinare il primo giorno della settimana, che in inglese è la Domenica. 


Sub Prova() 
MsgBox ("Il Giorno scelto è :" & WeekdayName(4)) 
End Sub 


e porterebbe a video questo messaggio 


ll 
Microsoft Excel 


Se si passa un valore negativo o un valore superiore a 7, si riceverà 
un errore. Il secondo argomento consente di specificare se si 
desidera ottenere il nome breve o completo. Il valore di default di 
questo argomento è False, che produce un nome completo, se si 
desidera il nome breve, si deve passare il secondo argomento 
come True. Ecco un esempio: 


Il Giorno scelto è : giovedì 


Sub Prova() 
MsgBox ("Il Giorno scelto è : " & WeekdayName(4, True)) 
End Sub 


Per supportare più opzioni, il linguaggio Visual Basic fornisce la funzione Format () : sintassi 
Function Format( ByVal Expression As Object, Optional ByVal Style As String = "" ) As String 


Il primo argomento è la data in cui deve essere formattata e il secondo argomento è una stringa che 
contiene la formattazione da applicare. Per crearla, si utilizza una combinazione del mese, giorno e 
anno. Ecco un esempio: 


Sub Prova1() 

Dim data1 As Date 

datal = #12/28/2014# 

MsgBox ("La data è " & Format(data1, "dd MMMM, yyyy")) 
End Sub 
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fr 


Microsoft Excel Verrebbe mostrato questo messaggio 


La data è 28 dicembre, 2014 


26. La funzione MsgBox e InputBox 


Abbiamo usato questa semplice funzione molto spesso in questo corso, adesso vediamola più da vicino 
e come possiamo personalizzarla per i nostri progetti. La funzione MsgBox() ci permette di mostrare a 
video un box che riporterà un avviso permettendo così all'utente di scegliere l'operazione più idonea 
da eseguire. Questo comando ci è utile quando stiamo per mandare in esecuzione una determinata 
procedura e vogliamo ottenere il consenso dall'utente, oppure la possiamo usare nella gestione degli 
errori, ci può avvisare e impedire l'esecuzione di una routine che porterebbe il programma alla 
generazione di un errore con conseguente blocco dell'esecuzione del nostro progetto, ma può 
chiederci una ulteriore conferma per operazioni “delicate” - tipo cancellazione di file - in sostanza è una 
funzione che ci permette di comunicare da vicino con l'applicazione che stiamo usando. 


Finora abbiamo visto marginalmente l’uso di Msgbox, in questa lezione cercheremo di approfondire le 
sue potenzialità e il suo uso. Non ha una sintassi particolarmente difficile ma il suo uso “avanzato” ci 
permette di controllare le varie procedure e gestire tutti gli eventi che abbiamo istanziato nel nostro 
programma, in sostanza è una funzione di VBA abbastanza semplice da usare che riporta a video un 
messaggio con un'icona e dei pulsanti predefiniti, a cui si risponde premendo su uno di essi. La sintassi 
è la seguente : MsgBox(prompt[, buttons] [, title] [,helpfile ,context]) 

oppure italianizzando il commando MsgBox(Messaggiol[, Pulsanti] [, Titolo] [, Fileaiuto , Contesto]) 


v. Prompto Messaggio : indica il messaggio che sarà visualizzato nelle finestra di dialogo. 

v. buttons o Pulsanti : indica il valore numerico dei pulsanti da visualizzare nella finestra di 
dialogo. 

v_ Title o Titolo : Indica il titolo della finestra di dialogo e va scritto fra virgolette 

v_ helpfile, FileAiuto e context o Contesto : sono relativi alla guida dell’applicazione ma non sono 
indispensabili 


Ricordiamoci che non abbiamo nessun controllo della posizione in cui verrà visualizzato il Box sullo 
schermo, vediamo ora qualche esempio : 


| Microsoft Excel De | 


Sub Prova1() 
MsgBox "Ciao a tutti" 
End Sub Ciao a tutti 


Questo codice ci riporta a video un messaggio come questo 
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Come potete vedere abbiamo omesso alcune espressioni nella sintassi appena esposta, ma il nostro 
box ci appare con il testo che abbiamo inserito, e con la barra del titolo di default [Microsoft Excel] , 
inoltre è possibile anche far apparire il box usando il valore di Variabili oppure possiamo anche usare 
anche una forma più evoluta e personalizzare il nostro messaggio di avviso come meglio crediamo, 
vediamone un esempio 


Sub Proval() 
MsgBox "Ciao a tutti", vbCritical + vbOKOnly, "Funzione MsgBox Semplice" 
End Sub 


Funzione MsgBox Semplice x 


Riporta a video questo messaggio: 


Q a EU Notiamo subito che è cambiato il titolo nella barra della finestra ed 
è comparsa un'icona rossa con una X bianca, possiamo anche 


cambiare tipo di icona in questo modo : 


Sub Provall() 
MsgBox "Ciao a tutti", vbQuestion + vbOKOnly, "Funzione MsgBox Semplice" 
End Sub 


Funzione MsgBox Semplice Psi 


\ 2 }  Ciaoatutti 


E ci verrà riportato a video un messaggio come questo 


Vedendo i codici esposti e i vari box che ci sono apparsi possiamo 
dire che : 


Prompt: è il messaggio che verrà visualizzato, nel nostro caso Ciao a tutti” 

Buttons : è il tipo di pulsante e relativa icona, nel nostro caso è rappresentato dal codice vbCritical + 
vbOKOnly 

Title : è il titolo della finestra, nel nostro caso è Funzione MsgBox Semplice" 


A volte è difficile ricordare tutti i comandi e potremmo usarla anche in un altro modo. Abbiamo detto 
poco sopra che buttons indica il valore numerico dei pulsanti da visualizzare nella finestra di dialogo, 
ma finora non abbiamo esposto valori numerici, abbiamo solo rappresentato i pulsanti con 

delle “parole chiave” tipo : vbCritical + vbOkOnly, oppure vbQuestion + vbOkOnly vediamo questo 
aspetto modificando il codice finora usato in questo modo : 


Sub Proval() 
MsgBox "Ciao a tutti", 0 + 16, "Funzione MsgBox Avanzata" 
End Sub 


7 _ roi 
Funzione MsgBox Avanzata (28) 


L'esecuzione di questo codice ci riporta questo avviso 


Ciao a tutti : : - : . 
Q Come possiamo vedere l'avviso cambia solo nel titolo che abbiamo 
modificato in Funzione MsgBox Avanzata ma il resto del Box è 
uguale, eppure il codice è rappresentato in maniera diversa, 


possiamo vedere che non compaiono più le parole chiave usate in 
precedenza ma abbiamo inserito dei valori numerici separati da virgole e seguiti dal titolo della finestra. 
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A mio avviso usarla in questo modo è molto più semplice da ricordare e avremmo meno codice da 
scrivere. Esponiamo ora con una tabella come vengono interpretati i valori da VBA, che ci aiuterà 
nell'interpretazione di quanto finora esposto. L'argomento buttons indica il valore numerico dei 
pulsanti da visualizzare nella finestra del Box e sono così rappresentati 


RA pae 


Interrompi - Riprova - Ignora | vbAbortRetryignore | Interrompi Riprova Ignora | 


Si - No - Annulla vbYesNoCancel Annulla 


Sempre a questo argomento possiamo associare un'icona da visualizzare nel Box identificata da un 
valore numerico seguendo questa tabella: 

Abbiamo detto poco sopra che la funzione 
MsgBox restituisce un valore, questo valore 


vbGritical rapprese nta il pulsante che abbiamo premuto, 
infatti come facciamo a sapere quale 
ulsante, e di conseguenza, quale scelta ha 
Domanda vbQuestion 2? P ; I . 
[omenda -— | vbquestion | (2) fatto l'utente? Ora dobbiamo fare una piccola 
o . parentesi, nelle lezioni precedenti abbiamo 
Esclamazione vbExclamation i 
sempre esposto MsgBox come un semplice 
Ka . suina a i avviso, invece possiamo usarla anche quando 
lacci dà de 07, dobbiamo prendere delle decisioni, in pratica 
si sta dimostrando l'estrema versatilità di 
questa funzione, unica cosa è fondamentale sapere quale tasto è stato premuto dall'utente per 


consentire o negare l'esecuzione di una procedura. 
un aspetto più importante, cioè può permettere 


E l'esecuzione di una procedura oppure indicarci quale 

conce —lubcancet | operazione stiamo per eseguire e richiedere 
un’ulteriore conferma. 

ato | sesdagrdi 
Vediamo ora con una tabella quali sono i valori che 
vengono restituiti da MsgBox e poi con qualche riga 

Retry vbRetryCancel 6 l l i 6 P Î 9 Ì 6 
di codice ne vediamo il suo uso all’interno di una 


In base alla tabella di fianco esposta possiamo dire 
che se l'utente preme il tasto Ok il valore restituito 
sarà 1, mentre se preme il pulsante Yes il valore 

restituito sarà 6, di conseguenza possiamo usare la 


A questo punto non diventa solo una semplice 
funzione che rimanda un avviso, ma prende campo 
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funzione anche in altri contesti diversi dal semplice avviso, ma usarla anche per operare delle scelte 
usando le Variabili per ottimizzare la funzione e l’uso che ne viene fatto. Vediamo qualche esempio di 
codice 


Sub prova() 

Dim Risp As Integer 

Risp = MsgBox("Prova funzione MsgBox", 1 + 64, "Funzione MsgBox Avanzata") 
If Risp = 1 Then 
MsgBox "Hai schiacciato il pulsante Ok", 1+48, "Funzione MsgBox Avanzata" 

Else 

Exit Sub 

End If 

End Sub 


ce 7 zzz, Con il codice sopra esposto ci compare una finestra come questa 
Funzione MsgBox Avanzata (20) 


. 
IL ) Prova funzione MsgBox 


Annulla | E cliccando sul pulsante Ok ci comparirà un messaggio del genere 


ME TASIonE MsgBox Avanzata x Credo che sia abbastanza eloquente come solo sostituendo le 

| condizioni da verificare e le procedure da eseguire possiamo 

PN Hai schiacciato il pulsante ok || Utilizzare questa funzione con scopi ben diversi dal solo avviso, ma 
possiamo integrarla con le scelte che andiamo ad operare nel 

Tale proseguo del nostro programma, costituendo così un’ossatura 

stabile e logica del nostro codice sia per quanto riguarda la gestione 

degli errori che richiedendo conferma all'utente di quanto si 

appresta a fare e in base alle scelte che effettua indirizzare il flusso del programma nella direzione 

appropriata 


26.1 La funzione InputBox 


Se vogliamo che l'utente possa operare delle scelte su come usare la procedura possiamo usare la 
funzione Msgbox che abbiamo già visto nella lezione precedente oppure la funzione InputBox, la quale 
ci permette di ottenere un input dall'utente, la sintassigenerale è la seguente: 


InputBox (Messaggio) [, Titolo, Default, XPos, YPos, File Aiuto, Contesto]) 


Messaggio: è una stringa usata per indicare all'utente quale informazione deve inserire, ed è l'unico 
argomento richiesto, tutti gli altri sono opzionali. 

Titolo è una stringa usata come titolo per la finestra di dialogo 

Default è una stringa per fornire un valore di Default per l'input dell'utente 

XPos e YPos sono espressioni numeriche che forniscono le coordinate dove deve apparire la finestra di 
dialogo, XPos è la distanza orizzontale dal lato sinistro della finestra e YPos è la distanza verticale dal 
lato superiore della finestra, sono argomenti opzionali, ma fate attenzione se li usate perchè se 
specificate delle posizioni troppo grandi per questi argomenti si corre il rischio di non far apparire la 
finestra sullo schermo 

FileAiuto è una stringa che contiene il nome di un file della guida di Windows e Contesto è 
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un'espressione numerica che specifica l'argomento nel file della guida relativo alla finestra di dialogo 
che state visualizzando. FileAiuto e Contesto sono opzionali, ma se specificate FileAiuto dovete 
specificare anche Contesto, e quando specificate un file della guida per una finestra di dialogo di input, 
VBA aggiunge automaticamente un pulsante della Guida (?) alla finestra di dialogo. Vediamo ora un 
esempio 


Sub funzione_input() 

Prova_input = InputBox(prompt:="Inserisci il nome di un file: ", Title:="Crea un nuovo file", 
Default:="Newfile") 

End Sub 


ed otteniamo un finestra di questo tipo 


Crea Un nuovo file 


Inserisci il nome di un file: 
credo che sia abbastanza semplice ed 


Annulla | intuitivo il listato esposto, infatti vediamo 
che quando digitato nel codice appare nella 
finestra di dialogo, ora possiamo passare 
all'argomento appena accennato all'inizio 
cioè prendere delle decisioni, naturalmente 
le nostre procedure non possono veramente "Prendere delle decisioni" allo stesso modo di un essere 
umano, ma bensì possono scegliere tra diversi percorsi di azioni predefinite, basandosi su semplici 
condizioni e prendendo delle decisioni al solo verificarsi di determinati eventi. Possiamo dire che 
usiamo le istruzioni di scelta di VBA, definite in una condizione oppure in un insieme di condizioni per 
cui VBA esegue un blocco di codice della nostra procedura oppure un altro blocco di codice. 
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27. Le variabili: Nozioni di base 


In programmazione, una variabile è un valore che viene affidato al computer per memorizzarlo 
temporaneamente nella sua memoria mentre il programma è in esecuzione. Si deve tener presente 
che la memoria del computer è suddivisa in piccole aree di stoccaggio utilizzate per contenere i valori 
delle applicazioni e quando si utilizza un valore nel codice, il computer lo memorizza in una di queste 
aree per poi rilasciarlo quando viene richiamato. 


Immaginiamo che una variabile sia come una casella in cui si può inserire un dato di qualsiasi tipo e 
salvarlo per impiegarlo successivamente. Il nome della variabile è l'etichetta che identifica la casella e il 
contenuto della casella è il valore della variabile, la particolarità di una variabile è di poter cambiare il 
suo valore durante l'esecuzione della macro, mentre il nome rimane inalterato. Possiamo quindi 
sintetizzare che una variabile è il nome assegnato ad una specifica locazione di memoria del computer, 
e possiamo usare il nome della variabile per riferirci a qualsiasi dato contenuto in quella determinata 
locazione di memoria. Il nome di una variabile deve essere scelto seguendo poche regole 


Deve cominciare con una lettera dell'alfabeto 

Dopo la prima lettera può contenere qualsiasi combinazione di numeri, lettere 

Il nome di una variabile non può contenere spazi, punti o caratteri speciali quali =, +, -,/ e simili. 
Il nome della variabile non deve corrispondere a parole chiave di VBA 

Il nome di una variabile deve essere unico, cioè non può essere duplicato all'interno di un 
modulo 


> a A 


Per creare una variabile, è abbastanza semplice, da quanto abbiamo esposto finora basta solo dargli un 
nome ed assegnarli un valore, vediamone un esempio. alex = 10 


Questo enunciato memorizza il valore 10 nella locazione di memoria denominata alex, se si tratta del 
primo enunciato VBA crea la variabile, riserva una locazione di memoria per contenere il dato della 
variabile e poi memorizza il valore 10 in questa nuova locazione di memoria specificato dal nome della 
variabile. Molto semplicemente basti ricordare che tutto ciò che si mette sul lato destro di un segno di 
uguale è quello che si sta tentando di memorizzare e tutto quello che si ha a sinistra del segno di 
uguale è il luogo in cui si sta cercando di conservarlo. 

Se la variabile alex esiste già VBA memorizza il nuovo valore nella locazione di memoria a cui fa 
riferimento la variabile alex, in pratica sovrascrive il valore 


Questa procedura è definita una "dichiarazione implicita", oppure "dichiarazione al volo", risulta molto 
comoda ma può presentare degli inconvenienti, infatti usando il metodo implicito la variabile creata da 
VBA è di tipo Variant (tutti i tipi di dati), inoltre se in seguito digitiamo il nome sbagliato (es. Alex), a 
seconda del punto in cui il nome sbagliato compare nel codice il VBA può generare 

un errore di runtime, oppure possiamo anche usare la sintassi corretta, ma così andremmo a 
distruggere il valore memorizzato precedentemente.Allora come possiamo ovviare a questi 
inconvenienti? Dichiarando le variabili. 


27.1 Dichiarazione di una variabile 


Durante la scrittura del codice, è possibile utilizzare qualsiasi variabile semplicemente specificandone il 
nome, ed è possibile utilizzare qualsiasi nome per una variabile, ma per eliminare la possibilità di fare 
confusione, si deve innanzitutto far sapere al VBA che si prevede di utilizzare una variabile, al fine di 
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prenotare l'area di stoccaggio. La dichiarazione delle variabili è definita “Dichiarazione esplicita" e 
presenta i seguenti vantaggi 


Rende più veloce l'esecuzione del codice 

Aiuta ad evitare errori di digitazione 

Il codice risulta più facile da leggere 

Normalizza l'uso delle maiuscole nel nome delle variabili, per esempio se dichiariamo la 
variabile come Alex e in seguito digitiamo alex VBA trasforma automaticamente 

alex in Alex. 


a e e 


La dichiarazione di una variabile comunica semplicemente al VBA il nome della stessa ma è comunque 
possibile utilizzare un mix di variabili dichiarate e non dichiarate. Se si dichiara una variabile e poi si 
inizia ad utilizzare un'altra variabile con un nome simile, per Visual Basic si stanno utilizzando due 
variabili e questo può creare confusione. La soluzione a questo problema è di dire a Visual Basic che 
una variabile non può essere utilizzata se non è stata dichiarata e per ottenere questo, basta inserire la 
parola chiave Option Explicit all'inizio del listato. Questa operazione può anche essere fatta 
automaticamente per ogni file controllando che sia inserita la spunta alla voce Richiedi dichiarazione di 
variabili nella finestra di dialogo Opzioni dell’editor di VB 


Per dichiarare esplicitamente una variabile si usa la parola chiave Dim seguita da un nome. Ecco un 
esempio: Dim nome_ variabile che nel nostro esempio diventa Dim alex 


E’ indubbio che dichiarando le variabili ne ricaviamo notevoli benefici, ma l'errore umano nella 
digitazione del codice è sempre in agguato, per tutelarsi ulteriormente possiamo inserire un'altra 
parola chiave Option Explicit, se aggiungiamo questa parola chiave nell'area delle dichiarazioni di un 
modulo, cioè all'inizio del modulo prima di qualsiasi altra dichiarazione o listato, il VBA ci richiede di 
dichiarare tutte le variabili tramite l'enunciato Dim prima di usarle, in pratica l'enunciato Option 
Explicit proibisce di dichiarare implicitamente variabili in ogni punto del modulo, possiamo dire che con 
l'istruzione Option Explicit abbiamo aggiunto un altro pezzettino al nostro listato per garantirne una 
perfetta esecuzione. 


Una dichiarazione implicita contiene dati di tipo Variant, però il nostro obbiettivo è quello di abbinare 
le potenzialità di VBA per utilizzare o manipolare vari tipi di dati presenti nel nostro foglio di Excel, se 
per esempio volessimo eseguire una somma tra i dati contenuti in due variabili avremmo sicuramente 
una incompatibilità nei dati e quasi certamente ci verrà rimandato un errore. Per ovviare a questo 
ultimo inconveniente usiamo un'altra parola chiave nella dichiarazione della variabile e aggiungiamo 
anche il tipo di dati che andrà a contenere. La parola chiave è As e l'enunciato si presenta in questo 
modo: 


Dim nome_ variabile As tipo che nel nostro esempio diventa così Dim alex As Integer 

Così facendo abbiamo creato una variabile di nome alex e abbiamo dichiarato che è di tipo 

numerico. Per dichiarare una nuova variabile dopo averne dichiarato una prima, si può semplicemente 
andare alla riga successiva e utilizzare la parola chiave Dim per dichiarare quella nuova. Ecco un 


esempio: 


Dim pippo 
Dim pluto 


Allo stesso modo, è possibile dichiarare quante variabili vogliamo, inoltre è possibile dichiarare più 
variabili sulla stessa riga e per effettuare questa operazione, si utilizza sempre la parola chiave 
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Dim separando i nomi delle variabili con una virgola. Ecco un esempio 
Dim pippo, pluto, minni, alex. Vediamo un esempio di codice sul loro utilizzo 


Sub var1() 

Dim alex As String 
alex = "Ciao a tutti" 
MsgBox alex 

End Sub 


ifelucuia salde: e otteniamo un messaggio del genere 


SRESTRO In questo modo abbiamo dichiarato la variabile all'interno della routine o 
sub var1 e può essere usata solo in quella routine, infatti se usiamo questo 
codice 


Sub var1() 

Dim alex As String 
alex = "Ciao a tutti" 
stampa_box 

End Sub 


Private Sub stampa_box() 
MsgBox alex 
End Sub 


pazze Excel x otteniamo un messaggio del genere 


Non ci viene rimandato un errore, in quanto il comando MsgBox viene eseguito, 
ma non vediamo nessuna scritta, cioè la variabile alex non viene riconosciuta e 
non appare nel nostro box. Abbiamo parlato poco sopra di dichiarazione delle 
variabili nell'area di dichiarazione del modulo, assieme alla parola chiave Option Explicit, abbiamo 
anche già visto i benefici di questa particolare procedura, ma se in quell'area aggiungessimo anche la 
dichiarazione della variabile cosa succederebbe? Semplicemente che la variabile sarebbe condivisa e 
utilizzabile da tutte le routine di quel modulo. Vediamo un esempio modificando il codice del listato 
sopra esposto 


Option Explicit 
Dim alex As String 
Sub var1() 

alex = "Ciao a tutti" 
stampa_box 

End Sub 


Private Sub stampa_box() Option Explicit 
Dim alex As String 
MsgBox alex = 
Bro Sub varl() 
End Sub alex = "Ciao a tutti" 


stampa box 

End Sub 

i ì . Private Sub stampa box() 
mostrato in figura qui a lato MsgBox alex i 


End Sub 


Il listato va inserito nell’editor all’inizio del modulo come 
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Se eseguiamo questa macro verrà mostrato il contenuto della variabile in una finestra 


Avrete notato che nella routine principale è stato inserito il nome di 
un’altra routine cioè stampa_box, in questa forma la macro riconosce che 
Ciao a tutti quella è una chiamata ad un'altra macro e la esegue, inoltre la routine 
stampa_box è preceduta dalla funzione Private, che viene usata quando 
vogliamo utilizzare una routine di quel modulo e solo in quello, al tempo 


stesso questa ruotine non ci compare nella finestra di assegnazione delle 


Macro. 


Abbiamo visto l'utilità nell'inserire la parola chiave Option Explicit nel listato, è possibile evitare di 
inserire in ogni modulo tale riga di codice agendo nelle opzioni dell’editor per garantire che Option 
Explicit sia sempre inserito nella parte superiore del modulo operando in questo modo: dal 

menu Strumenti - Opzioni e nella finestra che ci viene mostrata mettere il flag alla voce Dichiarazione di 
variabili obbligatoria. Come mostrato nella figura qui sotto 


Editor | Formato editor | Generale | Ancoraggio | 

Impostazioni codice 

MW Controllo automatico sintassi Rientro automatico 
Rientro tabulazione: | 4 
i automatico 
[Informazioni rapide automatiche 
MW Descrizione dati automatica 


Impostazioni finestra 
MW Trascinamento della selezione 
Visualizza modulo intero 
| Separa routine 


Messa la spunta cliccare sul tasto Ok per confermare. È ora necessario utilizzare sempre la parola 
chiave Dim per dichiarare una variabile, in caso contrario verrà rimandato un errore di “Variabile non 
definita”. Abbiamo anche visto l'uso della funzione Private, quando facciamo programmi con listati 
lunghi e usiamo diversi moduli, ne facilita l'interpretazione del codice e il debug in caso di errore. 


Abbiamo visto che tutte le variabili dichiarate all’interno di una procedura sono disponibili solo 
all’interno della procedura in cui le dichiarate, mentre quelle che dichiarate a livello di modulo (come in 
Fig. 3) sono disponibili a tutte le procedure all’interno del modulo in cui sono state dichiarate, ma non 
sono disponibili a procedure in un modulo diverso. In VBA gli elementi che sono disponibili a tutti i 
moduli vengono definiti a validità pubblica e sono chiamati variabili globali, perché sono disponibili 
globalmente cioè in tutto il vostro programma tramite la parole chiave Public usando la seguente 
sintassi: Public NomeVariabile [As NomeTipo] 
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Dove NomeVariabile rappresenta un nome valido 

[(generale) 4 qualsiasi per identificare la variabile e NomeTipo un 
Option Explicit qualsiasi nome di tipo di dato valido per fare un esempio 
Public alex As String vediamo il listato di prima modificandone la dicitura con 


Sub vaxrl() la parola chiave Public come mostrato in figura 
alex = "Ciao a tutti" 


stampa box 
End Sub 
Private Sub stampa box() Utilizzare Public per dichiarare una variabile a livello 


MsgBox alex globale può essere utile quando si ramifica il programma 


End Sub 


in diversi moduli ma è da usare con molta attenzione 
specialmente nell’assegnazione del nome alla variabile 
per evitare di creare confusione se esistono due variabili con lo stesso nome in moduli diversi, pertanto 
cercate di essere espliciti nell’uso della variabile nella forma Public 


Tuttavia, si deve tener presente che ci troviamo in ambiente Excel, un foglio di calcolo, con celle che 
contengono valori, per cui dobbiamo chiederci anche cosa si vuole fare di questa variabile e del valore 
in esso contenuto. Dopo tutto, che senso avrebbe memorizzare un valore, se non lo si vuole usare? 
Quello che possiamo fare è di trasferire il nostro valore memorizzato nella variabile in una cella del 
foglio di calcolo. 

Precedentemente abbiamo visto la proprietà di Range che tramite la proprietà Value può ottenere o 
impostare il valore di una cella, o un gruppo di cellule. Per impostare un valore, la proprietà Range va 
messa prima di un segno di uguale, in questo modo: 


Sheets(“Foglio1”).Range ( "A1"). Value = 


In questo modo vogliamo puntare al Range A1 del foglio con nome “Foglio1” e dopo il punto, 
dobbiamo quindi inserire il valore da assegnare alla cella A1 tramite la proprietà Value e dopo il segno 
di uguale, è possibile digitarne il valore in questo modo: 


Sheets(“Foglio1”).Range ( "A1"). Value = 10 

Ora, il valore per la cella A1 sul foglio di lavoro “Foglio1” è impostato su 10. Per assegnare un valore è 
possibile digitare il nome di una variabile invece di digitare un numero. Se nel listato del codice 
abbiamo precedentemente assegnato il valore 10 alla variabile “var1” possiamo esprimere il listato in 
questo modo: 


Sheets(“Foglio1”).Range ( "A1"). Value = var1 


VBA vede la variabile denominata var1 quindi recupera qualsiasi valore memorizzato all'interno di esso 
e tale valore viene quindi memorizzato all'interno di ciò che è a sinistra del segno uguale. 
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28. Variabili e tipi di dati 


Prima di addentrarci nell'argomento della lezione faremo una panoramica su come vengono 
memorizzati vari tipi di informazioni come numeri, date e testi, in modo che possano essere distinti tra 
di loro e come possano essere manipolati ed elaborati. Per chiarire meglio l'argomento e cercare di 
capire di cosa stiamo parlando è opportuno occuparsi ora delle diverse tipologie di dati che può 
trattare VBA e anche dello spazio che questi dati occupano in memoria. Faremo ora alcune 
considerazioni sulla distinzione dei tipi di dato (tipo di un dato è il termine che fa riferimento alla 
particolare natura dei dati che il VBA può memorizzare e manipolare quali testo e numeri) e 
cercheremo di vedere come può un programma lavorare con dati di tipo diverso come stringhe (la 
stringa è una sequenza di caratteri di testo) e numeri. 


Possiamo comprendere meglio quanto esposto e la sua importanza con un esempio. Prendiamo una 
sequenza di caratteri "17081974" a prima vista sembra trattarsi di un numero, ma potrebbe anche 
rappresentare una data, il 17 Agosto del 1974 oppure potrebbe essere un numero di telefono (170 81 
974). Come facciamo allora a determinare che cosa rappresenta quella stringa? 

Possiamo determinare cosa rappresenta la stringa in base all'uso che ne dobbiamo fare del dato. Se si 
tratta di un importo sicuramente usato per eseguire dei calcoli, di conseguenza si tratta di un numero, 
se invece rappresenta una data verrà utilizzata in modo particolare, si può sommare ma va trattata in 
modo diverso oppure se è un numero di telefono sappiamo che non può essere trattato per il calcolo 
anche se è costituito da una sequenza numerica 


Da queste considerazioni nasce l'esigenza o la necessità di dover sapere sempre la natura e lo scopo di 
un dato all'interno di un programma. | vari tipi di dati possono essere di tipo: Booleano, Byte, Date, 
String, Integer, Single, Long, Double, Currency, Variant, | più utilizzati sono: 


Byte : E di tipo numerico intero senza segno compreso nell'intervallo da 0 a 255 

Integer : E'usato per rappresentare numeri interi (con segno) compresi fra -32768 a 32767 
String : Può contenere delle sequenze di caratteri (stringhe) a lunghezza variabile oppure a 
lunghezza fissa 

Long : Rappresenta numeri interi compresi fra -2,147,483,648 e 2,147,483,647, 

Single e Double : Utilizzato per memorizzare numeri reali a singola o a doppia precisione 
Boolean : E’ di tipo logico che può assumere il valore TRUE o FALSE (vero o falso) 

Date : E' utilizzato per memorizzare data e ora 

Variant : E° un tipo universale che può contenere dei dati di qualsiasi formato 


> %% 


LR & 


Questi vari tipi di dati vengono memorizzati da VBA per poterli utilizzare come sotto forma 

di variabile che consentono di memorizzare temporaneamente dei valori durante l'esecuzione di 
un'applicazione. Alle variabili deve essere associato un nome, utilizzato per fare riferimento al valore 
della variabile, e un tipo di dati che determina la modalità di memorizzazione dei bit che rappresentano 
i valori nella memoria del computer. 


28.1 Tipi di dati 


Un tipo di dati indica al computer che tipo di variabile si intende utilizzare perché prima di utilizzare 
una variabile, si dovrebbe sapere quanto spazio occuperà in memoria. Diverse variabili utilizzano 
diverse quantità di spazio in memoria e le informazioni che specificano la quantità di spazio di cui ha 
bisogno la variabile è chiamato tipo di dati e viene misurato in byte. 

Per specificare il tipo di dati che verrà utilizzato per una variabile, dopo aver digitato la parola chiave 
Dim seguito dal nome della variabile si deve digitare la parola chiave As seguita da uno dei tipi di dati. 
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La formula utilizzata è: Dim nome_ variabile As tipo_dati 


E possibile utilizzare diverse variabili se sono necessarie e quando si dichiarano, si può fare su righe 
separate e per specificare il tipo di dati si utilizza la stessa formula di cui sopra. Si possono dichiarare 
varie variabili sulla stessa riga a patto che siano separate con una virgola, ora se si specifica il tipo di 
dati di ogni variabile si usa la stessa regola, si digita la virgola dopo ogni variabile in questo modo: 
Dim Nome As tipo_dati, Cognome As tipo_dati 


Il codice sopra esposto appare come se vi fosse un solo tipo di dati, di seguito passeremo in rassegna i 
vari tipi di valori che sono disponibili, e per dichiarare le variabili di tipi di dati diversi, si dichiara ognuna 
su una riga come abbiamo visto in precedenza. È inoltre possibile dichiarare variabili di tipi di dati 
diversi sulla stessa linea e per fare questo, si utilizza sempre la parola chiave Dim separando le 
dichiarazioni con le virgole. 


28.2 Tipi di caratteri 


Per rendere la dichiarazione della variabile più veloce e anche conveniente, è possibile sostituire 
l’espressione As tipo_dati con un carattere speciale che rappresenta il tipo di dati previsto. Questo 
carattere si chiama Tipo di carattere e dipende dal tipo di dati che si intende applicare a una variabile e 
se viene utilizzato, il tipo di carattere deve essere l'ultimo carattere del nome della variabile. Vedremo 
quali caratteri sono disponibili e quando possono essere applicati 


28.3 Valore di conversione 


Ogni volta che l'utente inserisce un valore in un'applicazione, tale valore viene considerato in primo 
luogo come testo, ciò significa che, se si desidera utilizzare tale valore in un'espressione o un calcolo 
che prevede un valore specifico diverso dal testo, è necessario convertire quel testo. Fortunatamente, 
Microsoft Visual Basic fornisce un meccanismo efficace per convertire un valore di testo di uno degli 
altri valori che vedremo dopo. Per convertire il testo ad un altro valore, vi è una parola chiave adatta 
allo scopo e che dipende dal tipo di valore in cui si desidera convertirlo. 


28.4 Variabili numeriche - Integer 


Se vogliamo utilizzare un numero nel programma, Visual Basic è in grado di riconoscere un numero 
naturale qualsiasi che non include una parte frazionaria e il numero è costituito da una combinazione di 
0, 1, 2, 3, 4,5, 6, 7,8 e 9, nessun altro carattere è consentito. 


28.5 Variabili numeriche - Byte 


Per dichiarare una variabile che conterrebbe numeri naturali che vanno da 0 a 255, si utilizza come tipo 
di dati Byte. In questo modo: Dim AnniServizio As Byte 

Non esiste un tipo di carattere per il tipo di dati Byte e dopo aver dichiarato la variabile, è possibile 
assegnare un piccolo numero positivo. 


Dim Valore As Byte 
Valore = 246 
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È inoltre possibile utilizzare il numero in formato esadecimale fino a quando il numero è inferiore a 255 
e se si dà un valore negativo o un valore superiore a 255, quando si tenta di accedervi, si riceverà un 
errore. Per convertire un testo in un numero piccolo, è possibile utilizzare la funzione CByte 

() utilizzando la seguente formula: Numero = CByte (Valore da convertire a Byte) si ricorda che quando 
si utilizza CByte (), si deve immettere il valore da convertire tra parentesi. 


28.6 Variabili di tipo - Integer 


Per dichiarare una variabile che potrebbe contenere un numero che varia -32.768 a 32.767, si utilizza 
come tipo di dati Integer con questa sintassi Dim conta As Integer 

Invece di utilizzare l’espressione As Integer, è possibile utilizzare il carattere % come tipo di dati, 
pertanto, la dichiarazione di cui sopra può essere fatta come segue: Dim conta % 


Dopo aver dichiarato la variabile, è possibile assegnarle il valore desiderato, se si assegna un valore 
inferiore a -32768 o superiore a 32767, quando si decide di usarla, si riceverà un errore. Se si vuole 
convertire un testo in un numero, si può usare la funzione CiInt () utilizzando la seguente 

formula: Numero = Clint (Valore da convertire) dove tra le parentesi di CInt () si deve inserire il testo, o 
l'espressione che deve essere convertita. 


28.7 Variabili di tipo - Long 


Un intero Long è un numero che può essere utilizzato per una variabile che coinvolge un numero 
maggiore di Integer, pertanto per dichiarare una variabile che potrebbe contenere un numero così 
elevato, si utilizza il tipo di dati Long in questo modo: Dim Popolazione As Long 


Il tipo di carattere per il tipo di dati Long è @, pertanto la variabile di cui sopra può essere dichiarata 
come segue: Dim Popolazione @ 

Una variabile Long può memorizzare un valore compreso tra -2,147,483,648 e 2,147,483,647 (le virgole 
sono usate per facilitare la lettura, non devono essere utilizzati nel codice), pertanto, dopo aver 
dichiarato una variabile Long, è possibile assegnare un numero in tale intervallo. Per convertire un 
valore testo in un intero Long, si usa l’espressione CLng () utilizzando la seguente formula: Numero = 
CLng (Valore da convertire), ricordando di inserire nelle parentesi di CLng () il testo da convertire 


28.8 Variabili di tipo - Single 


Nella programmazione, un numero decimale è quello che rappresenta una frazione, esempi sono 1.85 
e 426,88. Se si prevede di utilizzare una variabile che sarebbe di quel tipo di numero, ma la precisione 
non è la vostra preoccupazione principale, si dichiara come tipo di dati Single così: 

Dim Distanza As Single 

Il tipo di carattere per il tipo di dati Single è ! pertanto la dichiarazione di cui sopra potrebbe essere 
scritta in questo modo: Dim Distanza ! Se si dispone di un valore testo che deve essere convertito, si 
utilizza la funzione CSng () con la seguente formula: Numero = CSng (Valore da convertire), nelle 
parentesi di CSng () immettere il valore da convertire. 


28.9 Variabili di tipo Double 
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Se si desidera utilizzare un numero decimale che richiede una buona dose di precisione, si dichiara una 
variabile con tipo di dati Double con questa sintassi Dim Distanza As Double . Invece di As Double, è 
possibile utilizzare il tipo di carattere # in questo modo: Dim Distanza # 


Per convertire un valore testo in Double si utilizza la funzione CDbl () con la seguente formula: Numero 
= CDbl (Valore da convertire) inserendo nelle parentesi di CDbl () , il valore che deve essere convertito. 


28.10 Variabili di tipo - String 


Una stringa è un carattere o una combinazione di caratteri che costituiscono il testo di qualsiasi tipo e 
quasi qualsiasi lunghezza. Per dichiarare una variabile di tipo stringa, si utilizza come tipo di dati String 
in questo modo: Dim Paese As String. | tipo di carattere per i dati String è $, pertanto, la dichiarazione 
di cui sopra può essere scritta come: Dim Paese $ 


Dopo aver dichiarato una variabile, è possibile assegnarle un valore, nel caso di una variabile stringa il 
valore deve essere incluso all'interno di doppi apici in questo modo: 


Dim Paese As String 
Paese = "Italia" 


Se si dispone di un valore che non è in formato testo e si desidera convertirlo in una stringa, si deve 
utilizzare la funzione CStr () con la seguente formula: CStr (valore da convertire in stringa), inserendo 
nelle parentesi di CStr (), il valore che si desidera convertire in stringa. 


28.11 Variabili di tipo - Currency - Valuta 


Il tipo di dati valuta viene utilizzato per trattare valori monetari e va dichiarata in questo modo: 
Dim Salario As Currency . Invece di utilizzare la valuta come espressione, è possibile utilizzare il 
carattere @ come tipo di dati così: Dim Salario @. Quando si assegna un valore a una variabile 
Currency non si deve utilizzare il simbolo di valuta. Esempio di assegnazione per una variabile: 


Dim Salario As Currency 
Salario = 66500 


Se si desidera convertire un valore in Currency, si deve utilizzare la funzione CCur () con la seguente 


formula: Number = CCur (Valore da convertire), inserendo il valore da convertire tra le parentesi di 
CCur (). 


28.12 Variabili di tipo - Date - Data 


Una data come tipo di dati è utilizzata per memorizzare un valore data, e per dichiarare una variabile 
data si utilizza come tipo di dati Date in questo modo: Dim Data_nascita As Date. Dopo averla 
dichiarata è possibile assegnarle un valore, che deve essere compreso tra due simboli # (cancelletto). 


Dim Data_nascita As Date 
Data_nascita = # 10/8/1988 # 
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Se si dispone di una stringa o un'espressione che si desidera convertire in un valore data, si deve 
utilizzare la funzione CDate () in base alla seguente formula: Risultato = CDate (Valore da convertire), 
inserendo nelle parentesi di CDate (), il valore che deve essere convertito. 


28.13 Variabili di tipo - Time 


In Visual Basic, il tipo di dati Date può essere utilizzato anche per memorizzare un valore di tempo, 
ecco un esempio di dichiarazione di una variabile che può contenere un valore di tempo: Dim tempo As 
Date Per assegnare un valore alla variabile si segue la sintassi della funzione Date 


28.14 Variabili di tipo - Variant 


Fino ad ora, abbiamo dichiarato variabili conoscendone il tipo di valore che dovevano contenere, VBA 
offre un tipo di dati universale che è possibile utilizzare per qualsiasi tipo di valore, il tipo di dati 
Variant. Questo tipo di dati viene utilizzato per dichiarare una variabile il cui contenuto non è 
esplicitamente specificato, ciò significa che un tipo di dati Variant può contenere qualsiasi tipo di valore 
che si desidera. Ecco alcuni esempi di variabili di tipo Variant, che contengono diversi tipi di valori: 


Sub Test () 
Dim Nome, Paese, Salario, DataN As Variant 
Nome = "Eva Kant" 
Paese = 2 
Salario = 35.65 
DataN = # 24/02/2004# 
End Sub 


28.15 Durata di una variabile 


Fino ad ora, abbiamo dichiarato le variabili tra le linee di codice Sub e End Sub, questo tipo di variabile 
è definita come variabile locale. Una variabile locale è limitata alla zona in cui è dichiarata, in pratica 
non è possibile utilizzare tali variabili al di fuori della Sub in cui è stata dichiarata. Ecco un esempio: 


Sub Test () 
Dim Nome As String 
Nome = "Eva" 

End Sub 


28.16 Variabili globali 


Una variabile globale è una variabile dichiarata al di fuori della Sub e questo tipo di variabile è 
normalmente dichiarata nella sezione superiore del file. Ecco un esempio: 


Option Explicit 
Dim Cognome As String 
Sub Test () 


End Sub 
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Dopo aver dichiarato una variabile globale, è possibile accedervi dalle altre aree del file. 


‘In Modulo1 

Option Explicit 

Dim Cognome As String 

‘In Modulo2 

Sub Test () 
Dim Nome As String 
Nome = "Eva" 
Cognome = "Kant" 

End Sub 


Anche se abbiamo dichiarato la nostra variabile globale all'interno del file in cui è stato utilizzato, è 
anche possibile dichiarare una variabile globale in un modulo separato per essere in grado di utilizzarlo 
in un altro modulo. 


28.17 Variabili private 


Una variabile è indicata come Private se può accedere solo al codice all'interno dello stesso modulo, 
dove viene utilizzato. Per dichiarare una tale variabile, invece della parola chiave Dim, si utilizza la 
parola chiave Private. Ecco un esempio: 


Option Explicit 
Private Cognome As String 


Sub Test () 
Dim Nome As String 
Nome = "Eva" 
Cognome = "Kant" 
End Sub 


28.18 Variabili pubbliche 


Una variabile è denominata Public se si può accedere al codice sia all'interno dello stesso modulo in cui 
è dichiarata o dal codice esterno relativo modulo. Per dichiarare una variabile pubblica, invece della 
parola chiave Dim, si utilizza la parola chiave Public. Ecco un esempio: 


Option Explicit 
Private Cognome As String 
Public Nome_esteso As String 


Sub Test () 
Dim Nome As String 
Nome = "Eva" 
Cognome = "Kant" 
Nome_esteso = Nome & 
End Sub 


& Cognome 


159 


Microsoft” 


for Applications 


Come promemoria possiamo affermare che una variabile pubblica è disponibile per codificare dentro e 
fuori dal suo modulo, ciò significa che è possibile creare un modulo, dichiarare una variabile pubblica, e 
accedere a quella variabile da un altro modulo, mentre una variabile privata è disponibile all'interno del 
suo modulo, ma non al di fuori dello stesso. Se si dichiara una variabile privata in un modulo e si prova 
ad accedervi da un altro modulo, si riceverà un errore: 


‘Modulo 1: 
Option Explicit 
Private Cognome As String 


‘Modulo 2 : 

Option Explicit 

Private Cognome As String 
Private Nome As String 


Sub Test () 
Nome = "Eva" 
Cognome = "Kant" 
Nome_esteso = Nome & "" & Cognome 
ActiveCell.FormulaR1C1 = Nome_esteso 
End Sub 


29. Operatori di confronto, logici e matematici 


Per combinare o confrontare specifici valori in un'espressione si usano gli operatori. Il loro nome deriva 
dal fatto che essi sono i simboli che indicano specifiche operazioni matematiche o di altro genere da 
eseguire su vari valori in un'espressione. Quando in un'espressione si usa un operatore, i dati, che 
siano variabili o costanti su cui l'operatore agisce vengono detti operandi. Nell'espressione 2+1, per 
esempio, i numeri 2 e 1 sono gli operandi dell'operatore di somma (+). Adesso vediamo i vari tipi di 
operatori e come si usano 


29.1 Operatori di confronto 


Gli operatori di confronto, chiamati a volte operatori relazionali, vengono utilizzati soprattutto per 
stabilire il criterio, in base al quale prendere delle decisioni. Il risultato di un'operazione di confronto è 
sempre di tipo Boolean: True o False e sono usati per comparare valori letterali, costanti o variabili di 
ogni tipo. La tabella sotto rappresentata elenca gli operatori di confronto disponibili nel VBA 


160 


Microsoft" 


for Applications 


Operatore Significato 
Uguaglianza 
Se entrambi gli operandi di un'espressione di confronto sono 
Maggiore o uguale dello stesso tipo di dati, il VBA esegue il confronto diretto per 
quel tipo di dati, per esempio se entrambi sono stringhe, VBA 
Co compara le due stringhe, se sono date VBA compara le date e 
così via. Utilizzando gli operatori, è possibile impostare delle 
All'interno di un insieme | condizioni più sofisticate alle istruzioni che andremo a 
Il campo è vuoto scrivere. Aiutiamoci con un esempio per comprendere 


4<>5 => il risultato è True, 4 è diverso da 5 
Alex > Carlo => il risultato è False, “Alex” è più corto di “Carlo” 
Abc = abc => il risultato è False, Abc è diverso da abc 


Possiamo dire, In maniera molto sintetica, che questo tipo di operatore altro non fa che confrontare 
due variabili e appurare se la condizione che chiediamo tramite il simbolo dell'operatore, sia vera o 
falsa e il risultato del confronto è sempre un valore di tipo Boolean. Le variabili booleane riportano o 
accettano solo due valori, Vero(True) e Falso(False) e possiamo impostarle in questo modo 


Dim alex As Boolean 
alex = True 


Dalle due righe di codice abbiamo dedotto che è stata dichiarata la variabile alex con tipo di dati 
Boolean invece di impostarla come tipo di dati con Integer o Stringa. La seconda linea di codice 
inserisce un valore nella variabile, ma non è un dato che possiamo manipolare, mettiamo solo una 
“condizione” cioè diciamo che la variabile alex è uguale a Vero. Vediamo qualche riga di codice per 
comprendere meglio come usarla 


If alex = True Then 
MsgBox "E 'vero" 
Else 

MsgBox "E 'falso" 
End If 


La prima linea del ciclo IF verifica se la variabile alex corrisponde a un valore Vero, se lo è, allora 
visualizza un messaggio, dato che ci sono solo due opzioni da testare (True e False) possiamo avere una 
parte del ciclo If per testare un valore (Che può essere True) e se non viene soddisfatto sarà 
sicuramente il contrario (False). Possiamo approfondire con il codice seguente 


Sub operatori() 

Dim alex As Integer 

alex = 10 

If alex < 20 Then 

MsgBox alex & "" & "è inferiore a 20" 
End If 

End Sub 
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Se osserviamo il codice sopra riportato notiamo che abbiamo creato una variabile (alex), l'abbiamo 
dichiarata di tipo Integer (Dim alex As Integer) e memorizzato il valore 10 in essa (alex=10), ma se 
osservate la prima riga della dichiarazione If, viene posta la condizione If alex < 20 Then, se si consulta 
la tabella sopra espostavedrete che il simbolo < significa Minore di, quindi la condizione posta è "Se 
alex è inferiore a 20" la condizione restituisce TRUE e il codice tra If e End If viene eseguito, se invece la 
condizione restituisce FALSE allora VBA salterà tutte le righe di codice e passerà alla prima istruzione 
che trova dopo End If. Se eseguiamo la macro otteniamo una finestra come la seguente 


Possiamo usare altri operatori esposti in figura 1 in tutti i casi che possono 
aiutarci a porre delle condizioni come per esempio utilizzando un ciclo If in 
questo modo 


10 è inferiore a 20 


Sub operatori() 

Dim alex As Integer 

alex = 19 

If alex = 20 Then 

MsgBox alex & " " & "è uguale a 20" 
Elself alex > 20 Then 

MsgBox alex & "" & "è maggiore di 20" 
Else 

MsgBox alex & "" & "è inferiore a 20" 
End If 

End Sub 


19 è inferiore a 20 


Per concludere l'argomento possiamo riassumere affermando che Il risultato 
di un operatore di confronto è un cosiddetto valore di verità: può essere 


vero(True) oppure falso(False) 


29.2 Operatori Matematici 


Il VBA è in grado di eseguire tutte le operazioni aritmetiche normali come somma, sottrazione, 


Significato divisione e moltiplicazione in quanto l'elaborazione di 
dati numerici è una delle attività principali di un 
somma {a | RT : 
3 programma. VBA supporta una serie di operatori 
matematici che possono essere usati negli enunciati di un 
Moltiplicazione programma. Queste operazioni, con il relativo simbolo 
| pivisiome | che identifica l'operatore matematico, sono riportate 
nella tabella a fianco riportata 
Resto della divisione 
Concatenazione di 2 stringhe 
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Avrete certamente notato nelle linee di codice sopra esposte che abbiamo usato un simbolo 
particolare dopo l'istruzione MsgBox. Abbiamo inserito la variabile alex poi uno spazio e poi una E 
commerciale (&). Questo simbolo in VBA serve per concatenare (unire) due o più 

stringhe. Infatti dopo la & abbiamo uno spazio seguito da una stringa vuota posta virgolette, poi ancora 
una &, uno spazio e il testo del messaggio racchiuso tra virgolette. Quindi, con la & abbiamo unito la 
variabile e il testo separandolo da uno spazio vuoto 


Se NON avessimo usato la concatenazione tra la variabile e il testo del messaggio avremmo ricevuto un 
errore di compilazione come il seguente 


Al tempo stesso 
concatenando la variabile 
Errore di sintassi col testo del messaggio 
senza inserire lo spazio 


vuoto avremmo ottenuto 
? | un box come il seguente 


Errore di compilazione: 
19è inferiore a 20 


Come si può notare il valore della variabile alex risulta essere attaccato al testo del messaggio, che 
sicuramente è poco leggibile e interpretabile. Per meglio comprendere possiamo usare il codice sotto 
riportato 


Sub Prova() 

a="Auguroa tutti" 

b="gli utenti del Pianeta" 

c= "Buon Natale e Felice Anno Nuovo" > 
MsgBox a&b & c 

End Sub 


Microsort'Excel e} Che riporta un messaggio come il seguente 


Auguro a tuttigli utenti del PianetaBuon Natale e Felice Anno Nuovo 


Fate attenzione che se avete all'inizio delle routine la parola chiave Option Explicit vi viene 
rimandato un errore, in quanto come abbiamo detto poco sopra in presenza di questa 
==" parola chiave tutte la variabili vanno dichiarate. 


Se osservate attentamente la figura sopra esposta noterete che ci sono delle frasi attaccate (tuttigli e 
PianetaBuon), modifichiamo allora il nostro codice utilizzando un operatore di concatenazione (&) in 
questo modo 


Sub Prova1() 

a= "Auguro a tutti" 

b="gli utenti del Pianeta" 

c= "Buon Natale e Felice Anno Nuovo" 
MsgBox a & ""&b&""& c 

End Sub 
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Con questo ulteriore concatenamento abbiamo inserito uno spazio vuoto tra una frase e l'altra, infatti 
la sintassi "" (uno spazio vuoto racchiuso dalle virgolette) sta ad indicare uno spazio vuoto e di 


conseguenza la nostra scritta ci appare così 


‘Microsoft Excel «| Con questi operatori possiamo anche fare 
= operazioni matematiche usando le variabili, 
Auguro a tutti gli utenti del Pianeta Buon Natale e Felice Anno Nuovo || se prendiamo questo codice, ricordando che 
le variabili Alex, x e y sono state dichiarate 
come Integer nella barra delle dichiarazioni 
quindi condivisibili in tutto il modulo 


Sub sommal() 

Dim operator As Integer 

Alex = 10 

x=20 

y=30 

operator = y - x + Alex 

MsgBox "Il risultato della tua operazione è" & 
End Sub 


& operator 


Questo codice equivale a: Prendi il valore della variabile y, sottrai il valore della variabile x e somma il 
valore della variabile Alex eseguendo questa macro ci verrà riportato questo avviso 


Hic rosott Excel 


Il risultato della tua operazione è 20 


29.3 Operatori Logici 


Il più delle volte gli operatori logici forniti dal VBA vengono usati per combinare i risultati di singole 
espressioni di confronto al fine di costruire criteri complessi per prendere una decisione all'interno di 
una procedura, oppure per stabilire le condizioni in base alle quali un enunciato o un gruppo di 
istruzioni possa essere replicato. Come operando di un operatore logico si può usare qualsiasi 
espressione valida che dia un risultato Boolean, o un numero che il VBA possa convertire in valore 
booleano. Il VBA considera 0 come equivalente a False e ogni altro valore numerico equivalente a True. 
Nella tabella di Figura 12 viene fornito l'elenco degli operatori logici presenti nel VBA 


— Per poter comprendere al meglio la struttura degli 
operatori logici è importante saper leggere la 

| And | Entrambe le espressioni sono vere | tabella delle verità Booleana, essa non è altro che 

| or | E'vera una o l'altra espressione una tabella che mostra tutte le possibili 

espressione logica e il risultato di ognuna. Questa 

tabella ha 3 colonne, la prima contiene il valore del primo operando, la seconda il valore del secondo 

operando e la terza il valore del risultato dell'espressione. Guardando la riga sotto esposta 


False True False 
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In essa il primo operando è False, il secondo True e il risultato dell'operatore And con questi valori 
è False. La riga in questione, perciò, insegna che il risultato dell'espressione False And True è False. La 
sintassi dell'operatore And è la seguente: 


Operando1 And Operando2 


Dove la prima colonna rappresenta il valore booleano del primo valore. La seconda il valore booleano 
del secondo valore e la terza colonna il risultato dell'espressione. L'operatore And effettua una 
congiunzione logica (detta anche somma logica) e il risultato di un'operazione And è True solo se 
ambedue gli operatori sono True altrimenti è False. L'operatore And viene utilizzato per determinare se 
due diverse condizioni sono vere contemporaneamente. Per esempio: 


(ricavo < 5000) And (profitto < 1000) 


L'espressione precedente risulta vera (True) se il valore di ricavo è minore di 5.000 e al tempo stesso il 
valore del profitto è minore di 1.000 (e solo in quel caso). Si noterà che i due operandi in questa 
espressione sono espressioni di confronto e anche che sono poste tra parentesi per renderli operandi 
dell'operatore And. Le parentesi indicano al VBA di calcolare il risultato dell'espressione tra parentesi 
prima di valutare altre parti dell'espressione completa. Le parentesi, inoltre, rendono l’espressione più 
leggibile raggruppando le parti correlate di un'espressione. L'uso in questo modo delle parentesi, per 
raggruppare parti di un'espressione in una sotto-espressione è molto comune con espressioni di ogni 
tipo, numeriche, di stringa, di data e di confronto. 


29.4 L’operatore Or 


L'operatore Or effettua una disgiunzione logica, spesso specificata anche come or inclusivo. Il risultato 
di un'operazione Or è True solo se uno o entrambi gli operandi è True, altrimenti è False. 

L'operatore Or ha questa sintassi Operando1 Or Operando2 

Si userà l'operatore Or per determinare se una o l’altra di due condizioni sia vera. Per esempio 

(ricavo < 5000) Or (profitto < 1000) 

Il risultato sarà True se il valore di ricavo è minore di 5.000 oppure il valore di profitto è minore di 


1.000. L'operatore Not effettua la negazione logica, cioè inverte il valore dell'unico operando. Il 
risultato quindi è True se l’operando è False e False se l’operando è True. 
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30. Introduzione alle Istruzioni condizionali 


In alcuni compiti di programmazione, è necessario scoprire se una data situazione porta un valore 
valido e questa operazione viene fatta controllando una condizione. A supporto di questo, il linguaggio 
Visual Basic fornisce una serie di parole chiave e operatori che possono essere combinati per eseguire 
questo controllo, verificare se una condizione produce un risultato vero o falso. 


Una volta che la condizione è stata verificata, è possibile utilizzare il risultato (True o False) per 
compiere delle azioni. Ci sono diversi modi per controllare una condizione, anche utilizzando diversi tipi 
di parole chiave per verificare cose diverse, essendo ben consapevoli di ciò che ciascuna parola chiave 
fa o non può fare per è importante scegliere quella giusta. La dichiarazione IF ... Then esamina la 
veridicità di un'espressione ed è strutturata in questo modo: 


If CondizioneX Then Dichiarazione 


Pertanto, il programma esamina una condizione, in questo caso CondizioneX che può essere una 
semplice espressione o una combinazione di espressioni e se CondizioneX è vera, allora il programma 
esegue la dichiarazione. Ci sono due modi per utilizzare la dichiarazione IF... Then, se la formula 
condizionale è abbastanza breve, un modo è quello di scrivere su una riga, in questo modo: 


Sub Test() 
Dim ricco As Boolean, tassa As Double 
tassa = 30 
MsgBox ("Imposta :" & tassa & "%") 
ricco = True 


If ricco = True Then tassa = 40.5 
MsgBox ("Imposta :" & tassa & "%") 
End Sub 


Questo listato produrrebbe: 


al al 


Microsoft Excel 


Microsoft Excel Se per verificare la condizione ci sono molte 


istruzioni da eseguire, si dovrebbero scrivere le 
istruzioni su righe alternate, naturalmente, è 
possibile utilizzare questa tecnica anche se la 
condizione che si sta esaminando è breve. Se si 
scrive l'istruzione condizionale in più di una riga, è 
necessario terminare con End IF su una riga 
propria. La formula utilizzata è: 


Imposta : 30% 


Imposta : 40,5% 


If CondizioneX Then 
Dichiarazione 
End If 


Ecco un esempio: 
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Sub Test() 
Dim ricco As Boolean, tassa As Double 
tassa = 30 
MsgBox ("Imposta :" & tassa & "%") 
ricco = True 
If ricco = True Then 
tassa = 40.5 
MsgBox ("Imposta :" & tassa & "%") 
End If 

End Sub 


E’ inoltre possibile utilizzare il valore predefinito di una espressione booleana, infatti abbiamo visto che 
quando si dichiara una variabile booleana, per impostazione predefinita, viene inizializzata con il valore 
False. Ecco un esempio: 


Sub Test() 
Dim ricco As Boolean 
MsgBox ("Sei ricco? " & ricco) 
End Sub 


lai 
Microsoft Excel 


Questo produrrebbe: 


Sei ricco? Falso 
Sulla base di questo, se si desidera controllare se una variabile booleana 


dichiarata di recente e non inizializzata è uguale a False, è possibile 
omettere l'espressione di = False. Ecco un esempio 


Sub Test() 

Dim ricco As Boolean, tassa As Double 

tassa = 33 

If ricco Then tassa = 40.5 

MsgBox ("Percentuale tassabile :" & tassa & "%") 
End Sub 


fr 


Microsoft Excel Questo produrrebbe: 


Si noti che non ci sono simboli di uguale (=) dopo l'espressione If 
ricco, in questo caso, il valore della variabile è False, d'altra parte, se 
si vuole verificare se la variabile è True (Vera), assicuratevi di 
includere l’espressione = True. In generale, in caso di dubbio, è più 
sicuro inizializzare sempre la variabile e includere l’espressione = 
True o = False quando si valuta la variabile: 


Percentuale tassabile : 33% 


Sub Test() 

Dim ricco As Boolean, tassa As Double 

tassa = 33 

ricco = True 

If ricco = False Then tassa = 40.5 

MsgBox ("Percentuale tassabile :" & tassa & "%") 
End Sub 
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Va ricordato che alcune funzioni booleane come /sNumeric e IsDate, il loro valore di default è True, 
questo significa che quando vengono richiamate è possibile omettere l’espressione = True. E’ bene 
ricordare che quando una condizione è True o False la dichiarazione IF .. Then offre una sola 
alternativa: agire se la condizione è vera ed ogni volta che si desidera applicare un'espressione 
alternativa nel caso in cui la condizione è False, è possibile utilizzare la dichiarazione If .. Then .. Else. La 
formula di questa affermazione è: 


If CondizioneX Then 
Dichiarazione1 
Else 
Dichiarazione2 
End If 


Quando viene eseguita questa sezione di codice, se CondizioneX è True (Vera), allora viene eseguita 
l’istruzione contenuta in Dichiarazione1, se invece CondizioneX è False (Falsa), viene eseguita 
l'istruzione contenuta in Dichiarazione2. Ecco un esempio: 


Sub Test() 
Dim eta As Integer, FasciaEta As String 
eta = 16 
If eta <= 18 Then 
FasciaEta = "Ragazzo" 


Else 
FasciaEta = "Adulto" 
End If 
MsgBox ("Categoria : " & FasciaEta) 
End Sub 


|a 
Microsoft Excel 


Ciò produrrebbe: 


Categoria : Ragazzo 


30.1 IF Immediato 


Per aiutarvi con il controllo di una condizione e la sua alternativa, il linguaggio Visual Basic fornisce una 
funzione chiamata IlIf . La sua sintassi è: 


Public Function Ilf( _ 
ByVal Expression As Boolean, _ 
ByVal TruePart As Variant, _ 
ByVal FalsePart As Variant _ 

) As Variant 


Questa funzione opera come una condizione IF ... Then ... Else, prende tre argomenti richiesti e 
restituisce un risultato di tipo Variant e il valore restituito conterrà il risultato della funzione. Si deve 
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tenere presente che la condizione da controllare viene passata come primo argomento alla funzione e 
se tale condizione è vera, la funzione restituisce il valore Vero e l'ultimo argomento viene ignorato, 
mentre se la condizione è falsa, il primo argomento viene ignorato e la funzione restituisce il valore del 
secondo argomento. Come già menzionato, è possibile recuperare il valore dell'argomento giusto e 


assegnarlo al risultato della funzione e il listato che abbiamo visto poco sopra può essere scritto come 
segue: 


Sub Test() 
Dim eta As Integer, FasciaE As String 
eta = 16 
Fascia = Ilf(eta <= 18, "Ragazzo", "Adulto") 
MsgBox ("Categoria : " & FasciaE) 
End Sub 


Ciò produrrebbe lo stesso risultato che abbiamo visto in precedenza. 


30.2 Scelta di una valore 


Abbiamo imparato come controllare se una condizione è vera o falsa ed eseguire un'azione. Ecco un 
esempio: 


Sub Test() 

Dim flag As Integer, tipo As String 

flag=1 

tipo = "Sconosciuto" 

If flag= 1 Then 

tipo = "Tempo Pieno" 

End If 

MsgBox ("Tipo di impiego : " & tipo) 
End Sub 


Per fornire un'alternativa a questa operazione, il linguaggio Visual Basic fornisce una funzione 
chiamata Choose, la cui sintassi è: 


Public Function Choose(ByVal Index As Double, ByVal ParamArray Choice() As Variant) As Variant 


Questa funzione richiede due argomenti richiesti, il primo è equivalente alla CondizioneX della formula 
If ... Then. Per la funzione Choose, questo primo argomento deve essere un numero ed è il valore 
rispetto al quale viene confrontato il secondo argomento. Prima di richiamare la funzione, è necessario 
conoscere il valore del primo argomento ed è possibile farlo dichiarando prima una variabile e 
inizializzarla con il valore desiderato. Ecco un esempio: 


Sub Test() 
Dim flag As Byte, tipo As String 
flag=1 
tipo = Choose(flag, ...) 
MsgBox ("Tipo di impiego : " & tipo) 
End Sub 


Il secondo argomento può essere la dichiarazione della nostra formula. Ecco un esempio: 
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Choose(flag, "Tempo Pieno") 


Il secondo argomento è in realtà un elenco di valori e ogni valore ha una posizione specifica detta 
indice. Si tenga presente che per utilizzare la funzione in uno scenario If ... Then, si passa un solo valore 
come secondo argomento e questo valore (o argomento) ha un indice di 1. Quando la funzione Choose 
viene richiamata in un ciclo If, se il primo argomento contiene il valore 1, il secondo argomento viene 
convalidato. Quando la funzione Choose viene richiamata, restituisce un valore di tipo Variant ed è 
possibile recuperare quel valore, memorizzarlo in una variabile e usarlo all'occorrenza. Ecco un 
esempio: 


Sub Test() 
Dim flag As Byte, tipo As String 
flag=1 
tipo = Choose(flag, "Tempo Pieno") 
MsgBox ("Tipo di impiego : " & tipo) 
End Sub 


lai 


Microsoft Excel Ciò produrrebbe: 


Tipo di impiego : Tempo Pieno 


Cai) 


In alcuni casi, la funzione Choose può produrre un risultato nullo, 
se consideriamo lo stesso listato usato in precedenza, ma con un 
diverso valore: 


Sub Test() 
Dim flag As Byte, tipo As String 
flag =2 
tipo = Choose(flag, "Tempo Pieno") 
MsgBox ("Tipo di impiego : " & tipo) 
End Sub 


| i ‘x n . 
Microcoki Viani Basic Ciò produrrebbe un errore come in figura 
a fianco 


Errore di run-time '94": 
In quanto non vi è alcun valore con indice 


2 dopo la variabile che è stato inizializzato 
con il valore 2. Per utilizzare questa 
funzione come alternativa all'operazione If 
... Then ... Else, si devono passare due 
valori per il secondo argomento in quanto 
ogni valore ha una posizione specifica in 
base al suo indice. Per utilizzare la 
funzione in una applicazione If... Then ... 
Else, si devono passare due valori per il secondo argomento. Ecco un esempio: 


Utilizzo non valido di Null 


Choose(Tipo di Impiego, "Tempo Pieno", "Part Time") 


Il secondo argomento della funzione, che è il primo valore dell’argomentazione Choose, ha un indice di 
1, mentre il terzo argomento della funzione, che è il secondo valore dell'argomento Choose, ha un 
indice di 2. In sostanza quando viene richiamata la funzione Choose, se il primo argomento ha il valore 
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1, il secondo argomento viene convalidato, mentre se il primo argomento ha il valore 2, viene 
convalidato il terzo argomento. Come già menzionato, è possibile recuperare il valore restituito della 
funzione, ecco un esempio: 


Sub Test() 
Dim flag As Byte, tipo As String 
flag =2 
tipo = Choose(flag, "Tempo Pieno", "Part Time") 
MsgBox ("Tipo di impiego : " & tipo) 
End Sub 


‘di 
Microsoft Excel 


Ciò produrrebbe: 


Tipo di impiego : Part Time 


30.3 Il Passaggio di un valore 


Come ulteriore alternativa a un If ... Then, il linguaggio Visual Basic fornisce una funzione 
denominata Switch . La sua sintassi è: 

Public Function Switch(ByVal ParamArray VarExpr() As Variant) As Variant. Questa funzione richiede 
un argomento obbligatorio e per utilizzarla in uno scenario If ... Then, si deve passare l'argomento 
come segue: Switch(CondizioneX, Statement) 


Dove CondizioneX è un segnaposto e si deve passare una espressione booleana che può essere 
valutata a Vero o Falso, se tale condizione è vera, il secondo argomento sarebbe stato ignorato. 
Quando la funzione Switch viene richiamata, si produce un valore di tipo Variant (come una stringa) 
che è possibile utilizzare all'occorrenza, ad esempio, è possibile memorizzarla in una variabile in questo 
modo: 


Sub Test() 
Dim flag As Byte, tipo As String 
flag=1 
tipo = "sconosciuto” 
tipo = Switch(flag = 1, "Part Time") 
MsgBox ("Tipo di impiego : " & tipo) 
End Sub 


In questo esempio, abbiamo utilizzato un numero come argomento, ma è anche possibile utilizzare un 
altro tipo di valore, come ad esempio una enumerazione. Ecco un esempio: 


Private Enum tipo 
FullTime 
PartTime 
Stagionale 
Sconosciuto 

End Enum 
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Sub Test() 
Dim flag As tipo, Result As String 
flag = tipo.FullTime 
Result = "Sconosciuto" 
Result = Switch(flag = tipo.FullTime, "Full Time") 
MsgBox ("Tipo di Impiego : " & Result) 
End Sub 


Quando si utilizza la funzione Switch, se si richiama con un valore che non è controllato dal primo 
argomento, la funzione genera un errore e per applicare questa funzione ad un ciclo If ... Then ... Else, è 
possibile richiamarla utilizzando la seguente formula: 


Switch(CondizioneX1, Stato1, CondizioneX2, Stato2) 


Dove il segnaposto CondizioneX1 passa una espressione booleana che può essere valutata a Vero o 
Falso, se tale condizione è vera, il secondo argomento sarebbe stato eseguito. Per fornire 
un'alternativa alla prima condizione, si può passare un'altra condizione come CondizioneX2 e se viene 
valutata come Vero, allora sarebbe stata eseguita l’istruzione2. 


31. Le funzioni condizionali 


Una valida alternativa ad una condizione Vera o Falsa può essere la dichiarazione If ... Then ... Elselfin 
quanto si comporta come l’espressione If ... Then ... Else, salvo che offre un maggior numero di scelte, 
se necessario. La sintassi è la seguente: 


If Condizione1 Then 
Istruzioni1 

Elself Condizione2 Then 
Istruzioni2 

Elself CondizioneX Then 
IstruzioniX 

End If 


Quando viene utilizzata questa istruzione, verrà esaminata innanzitutto Condizione1, se risulta essere 
Vera, il programma eseguirà /struzioni1 e cessa l'esame delle altre condizioni, mentre se Condizione1 è 
falsa, verrà esaminata Condizione2 e nel caso risulti essere vera verrà eseguita Istruzioni2. In sostanza, 
ogni volta che una condizione è falsa, il programma continuerà l'esame delle condizioni fino a trovarne 
una che sia vera e una volta che è stata trovata verrà eseguita la sua istruzione e il programma 
terminerà l'esame condizionale quando incontra l'istruzione End If . Ecco un esempio: 


Sub Test() 
Dim eta As Byte 
eta = 32 
If eta <= 18 Then 
MsgBox ("Fascia Età :" & "Ragazzo") 
Elself eta < 55 Then 
MsgBox ("Fascia Età :" & "Adulto") 
End If 
End Sub 
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Esiste però la possibilità che nessuna delle condizioni indicate sia vera, in 
questo caso, è necessario fornire una condizione "generica" e viene fatta 
con un ultimo Else, che deve essere l'ultima nella lista di condizioni e deve 
agire se nessuna delle condizioni precedenti è risultata vera. La formula da 
usare potrebbe essere: 


Fascia Età : Adulto 


If Condizione1 Then 
Istruzionil 

Elself Condizione2 Then 
Istruzioni2 

Elself CondizioneX Then 
IstruzioniX 

Else 
CondizioneG 

End If 


Ecco un esempio: 


Sub Test() 
Dim eta As Byte 
eta = 65 
If eta <= 18 Then 
MsgBox ("Fascia Età :" & "Ragazzo") 
Elself eta < 55 Then 
MsgBox ("Fascia Età : " & "Adulto") 
Else 
MsgBox ("Fascia Età :" & "Anziano") 
End If 
End Sub 


Ciò produrrebbe: frena Excel 


Fascia di età : Anziano 


31.1 Dichiarazioni condizionali e funzioni 


Come abbiamo già visto, sappiamo che una funzione viene utilizzata per eseguire un compito specifico 
e produrre un risultato. Ecco un esempio: 
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Private Function etaF() 
Dim eta 
eta = InputBox("Inserisci l'età") 
etaF ="" 

End Function 


Quando una funzione esegue il suo compito, può incontrare diverse situazioni, alcune delle quali 
avrebbero bisogno di essere controllate per la veridicità o la negazione, ciò significa che le istruzioni 
condizionali possono aiutare una procedura con la sua assegnazione. Per meglio comprendere, 
sappiamo che una funzione ha lo scopo di restituire un valore, a volte però deve svolgere alcuni 
compiti i cui risultati potrebbero portare a risultati diversi. 


Una funzione può restituire un solo valore (abbiamo visto che, passando argomenti per riferimento, è 
possibile effettuare una procedura di restituire più di un valore), ma si può fare il rendering di un 
risultato a seconda di un particolare comportamento. Se una funzione richiede una risposta da parte 
dell'utente, in quanto l'utente può fornire risposte diverse, è possibile trattare ogni risultato diverso. Si 
consideri la seguente funzione: 


Private Function etaF() 
Dim eta 
eta = InputBox("Inserisci l'età") 
If eta <= 18 Then 
etaF = "Ragazzo" 
Elself eta < 55 Then 
etaF = "Adulto" 
End If 
End Function 


Sub Test() 

Dim tipo 

tipo = etaF 

MsgBox ("Fascia di età :" & tipo) 
End Sub 


A prima vista, questa funzione sembra a posto. L'utente è invitato a fornire un numero. Se l'utente 
inserisce un numero inferiore a 18 (escluso), la funzione restituisce “Ragazzo”. Ecco un esempio del 
programma: 


[i 


[di 


Microsoft Excel Microsoft Excel 


Inserisci l'età 


Fascia di età : Ragazzo 


Se invece l'utente fornisce un numero compreso tra 18 (incluso) e 55, la funzione restituisce “Adulto”. 
Ecco un altro esempio del programma: 
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r = r 
Microsoft Excel Microsoft Excel 


Inserisci l'età 
Fascia di età : Adulto 


Si deve tener presente che i valori restituiti sono dovuti esclusivamente alle istruzioni condizionali 
inserire e non alla funzione, e che la condizione viene verificata quando è Vera, pertanto se viene 
inserito un valore che non si “adatta” alle istruzioni la funzione non restituisce nessun valore. Nel 
nostro esempio, se l'utente inserisce un numero superiore a 55 (escluso), la funzione non eseguirà 
nessuna delle dichiarazioni, ciò significa che l'esecuzione raggiungerà la linea End Function senza 
trovare un valore da restituire. Ecco un altro esempio del programma: 


f 37 r 
Microsoft Excel Microsoft Excel 


Inserisci l'età 


Fascia di età: 


li] 


Per risolvere questo problema, si dispone di varie alternative, se la funzione utilizza una condizione If ... 
Then, è possibile creare una condizione Else che abbraccia un valore diverso da quelli validati in 
precedenza. Ecco un esempio: 


Private Function etaF() 
Dim eta 
eta = InputBox("Inserisci l'età") 
If eta <= 18 Then 
etaF = "Ragazzo" 
Elself eta < 55 Then 


etaF = "Adulto" 
Else 

etaF = "Anziano" 
End If 


End Function 


Sub Test() 

Dim tipo 

tipo = etaF 

MsgBox ("Fascia di età :" & tipo) 
End Sub 
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Questa volta, la condizione Else viene eseguita se nessun valore si può applicare alle condizioni If o 
Elself. Ecco un altro esempio: 


r —— r 
Microsoft Excel Microsoft Excel 


Inserisci l'età 


Fascia Età : Anziano 


Un'altra alternativa è quella di fornire un ultimo valore di ritorno prima della linea End Function, in 
questo caso, se l'esecuzione raggiunge la fine della funzione, troverebbe dei dati da restituire, ma si 
dovrebbe conoscere il dato da restituire. Ciò dovrebbe essere fatto nel modo seguente: 


Private Function etaF() 
Dim eta 
eta = InputBox("Inserisci l'età") 
If eta <= 18 Then 
etaF = "Ragazzo" 
Elself eta < 55 Then 
etaF = "Adulto" 
End If 
etaF = "Anziano" 
End Function 


31.2 Uso della funzione Immediate IIF 


La funzione IIf può essere usata anche al posto di uno scenario /f... Then... Elself, infatti quando la 
funzione viene richiamata, l'espressione viene controllata e, come abbiamo già visto, se l'espressione è 
vera, la funzione restituisce l'argomento True e ignora l'ultimo argomento. Per utilizzare questa 
funzione come alternativa alla dichiarazione If ... Then ... Elself, se l'espressione è falsa, anziché 
immediatamente restituire il valore dell'argomento False, è possibile tradurre la parte in una nuova 
funzione IIf. La sintassi diventerebbe: 


Public Function Ilf( _ 
ByVal Expression As Boolean, ByVal TruePart As Object, Public Function IIf( _ 
ByVal Expression As Boolean, _ 
ByVal TruePart As Object, _ 
ByVal FalsePart As Object _ 
) As Object 
) As Object 


In questo caso, se l'espressione è falsa, la funzione restituisce il valore True e si ferma. Ecco esempio: 


Sub Test() 
Dim eta As Byte, fasciaE As String 
eta = 74 
fasciaE = Ilf(eta <= 18, "Ragazzo", Ilf(eta < 55, "Adulto", "Anziano")) 
MsgBox ("Fascia eta :" & fasciaE) 
End Sub 
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Abbiamo visto che in un If... Then ... Elself è possibile aggiungere il numero di condizioni Elself come si 
desidera, nello stesso tempo, è possibile richiamare il numero di funzioni IIF che si ritengono 
necessarie: 


31.3 Scegliere un valore alternativo 


Come abbiamo visto finora, la funzione Choose prende una lista di argomenti e per usarla come 
alternativa al If ... Then ... Elself ... Elself, è possibile passare i valori che si giudicano necessari per il 
secondo argomento. L'indice del primo elemento del secondo argomento sarebbe 1, mentre l'indice 
del secondo elemento del secondo argomento sarebbe 2, e così via. Quando la funzione viene 
richiamata, si dovrebbe prima ottenere il valore del primo argomento, allora si devono controllare gli 
indici dei membri disponibili del secondo argomento. Ecco un esempio: 


Sub Test() 
Dim statoC As Byte, tipo As String 
statoC = 3 
tipo = Choose(statoC, "Tempo Pieno", "Part Time", "Stagionale", "A chiamata") 
MsgBox ("Tipo di Inquadramento : " & tipo) 
End Sub 


| Microsoft Excel Ciò produrrebbe: 


19 paiono: Gone Finora, abbiamo usato solo le stringhe per i valori del 


secondo argomento della funzione Choose, in realtà, i valori 
del secondo argomento può essere anche nullo, può essere 
una costante o una stringa. Ecco un esempio: 


Private Function Moperat() 
Moperat = "**.- Lista Operatori --**" & vbCrLf & vbCrLf & _ 
"James Bond" & vbCrLf & _ 
"Eva Kant" & vbCrLf & _ 
"Arsenio Lupin" & vbCrLf & _ 
"Rocky Balboa" & vbCrLf & _ 
"Sandro Pertini" 
End Function 
Sub Test() 
Dim tipo As Byte, Result$ 
tipo = 3 
Result = Choose(tipo, _ 
"Tipo Contratto : Full Time", _ 
"Tipo Contratto : Part Time", _ 
Moperat, _ 
"Tipo Contratto : Stagionale") 
MsgBox (Result) 
End Sub 
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Microsoft Excel Ciò produrrebbe: 


**.- Lista Operatori --** 


James Bond 
Eva Kant 
Arsenio Lupin 
Rocky Balboa 
Sandro Pertini 


| valori del secondo argomento possono anche essere di diversi tipi. 


31.4 Il passaggio a un valore alternativo 


La funzione Switch è un metodo alternativo alla condizione If ... Then ... Elself ... Elself e l'argomento di 
questa funzione viene passato come un elenco di valori, come visto in precedenza, ogni valore viene 
passato come una combinazione di due valori: 


CondizioneX, StatementX 


Come si accede alla funzione, il compilatore controlla ogni condizione, se una condizione è vera, la sua 
dichiarazione viene eseguita, e se una condizione Y è falsa, il compilatore la salta. È anche possibile 
fornire un maggior numero di queste combinazioni. Ecco un esempio: 


Private Enum tipoC 
TPn 
PTm 
Stg 
Ach 
End Enum 


Sub Test() 
Dim tipo As tipoC, Result As String 


tipo = tipoC.Stg 

Result = "Sconosciuto" 

Result = Switch(tipo = tipoC.TPn, "Tempo Pieno", _ 
tipo = tipoC.PTm, "Part Time", _ 
tipo = tipoC.Stg, "Stagionale", _ 
tipo = tipoC.Ach, "A Chiamata") 


MsgBox ("Tipo Contratto : " & Result) 
End Sub 


178 


Microsoft® 


= 


for Applications 


r 
Microsoft Excel 


In una condizione If ... Then ... Elself ... Elself, abbiamo visto che c'è 
una possibilità che nessuna delle condizioni si adatterebbe, nel qual 
caso è possibile aggiungere una ultima dichiarazione Else. La 
funzione Switch supporta anche questa situazione se si utilizza un 
numero, un carattere o una stringa e per fornire questa ultima 
alternativa, invece di un CondizioneX, si deve immettere un valore 
Vero e includere la dichiarazione. Ecco un esempio: 


Tipo Contratto : Stagionale 


Sub Test() 

Dim tipo As Byte, Result As String 

tipo = 12 

Result = Switch(tipo = 1, "Tempo Pieno", _ 
tipo = 2, "Part Time", _ 
tipo = 3, "A Chiamata", _ 
tipo = 4, "Stagionale", _ 
True, "Sconosciuto") 


MsgBox ("Tipo Contratto : " & Result) 
End Sub 


È 
Microsoft Excel Ciò produrrebbe: 


Tipo Contratto : Sconosciuto 


Ricorda che puoi utilizzare anche un carattere. Ecco un esempio: 


Sub Test() 
Dim sesso As String, Result As String 
sesso = "H" 
Result = Switch(sesso = "f", "Femmina", _ 
sesso = "F", "Femmina", _ 
sesso = "m", "Maschio", _ 
sesso = "M", "Maschio", _ 
True, "Sconosciuto") 


MsgBox ("Tipo Sesso: " & Result) 
End Sub 


renne Excel Ciò produrrebbe: 


Tipo Sesso: Sconosciuto 
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32. Le selezioni condizionali 


Se si dispone di un gran numero di condizioni da esaminare, la dichiarazione /f... Then ... Else è 
costretta a verificarle tutte, ma VBA offre l'alternativa di saltare direttamente all'istruzione che si 
applica allo stato di una condizione. Questo processo è indicato come selezionare le condizioni 
utilizzando le parole chiave Select Case e Case, la cui formula è: 


Select Case Expression 
Case Expression1 
Statement1 
Case Expression2 
Statement2 
Case ExpressionX 
StatementX 
End Select 


La dichiarazione inizia con Select Case e termina con End Select e sul lato destro del Select Case, si deve 
immettere il valore, Expression, che verrà utilizzato, che può essere un valore booleano, un carattere o 
una stringa, un numero naturale, un numero decimale, un valore di data o ora, oppure una 
enumerazione. 

All'interno del Select Case e prima della linea End Select, è necessario fornire una o più sezioni che 
contengano una parola chiave Case seguita da un valore sul lato destro. Dopo il Case e la sua 
espressione (Expression), si può scrivere una dichiarazione e quando si accede a questa sezione di 
codice, viene considerato il valore di Expression e viene confrontato con ciascun valore di Expression di 
ogni Case: 


Se il valore di Expression1 è uguale a quella di Expression, allora statement1 viene eseguito. 
Se il valore di Expression1 non è uguale a Expression, l'interprete si sposta a Expression2 

Se il valore di Expression2 è uguale a Expression, allora viene eseguita l'istruzione Statement2 
Questo continuerà fino all'ultimo ExpressionX 


& & & 


Sub Test() 
Dim risp As Integer 
risp = InputBox( _ 
"Una di queste parole NON è un termine di VBA" & vbCrLf & vbCrLf & _ 
"1) Function" & vbCrLf & _ 
"2) Except" & vbCrLf & _ 
"3) Each" & vbCrLf & vbCrLf & _ 
"Inserisci la tua risposta ") 
Select Case risp 
Case 1 
MsgBox ("Sbagliato: Function è una parola chiave di Visual Basic " & vbCrLf & _ 
"Viene utilizzata per creare una funzione") 
Case 2 
MsgBox ("Giusto: Except non è una parola chiave di Visual Basic" & vbCrLf & _ 
"ma è una parola chiave utilizzata in C++") 
Case 3 
MsgBox ("Sbagliato: Each è una parola chiave di Visual Basic" & vbCrLf & _ 
"utilizzata in un ciclo per scorrere una lista di voci ") 
End Select 
End Sub 
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Ecco un esempio di esecuzione del programma: 


Microsoft Excel Xx Microsoft Excel X 


Una di queste parole NON è un termine di VBA 
Giusto: Except non è una parola chiave di Visual Basic 


1) Functi E ò si a 
3 sg conta ma è una parola chiave utilizzata in C++ 
3) Each 


Inserisci la tua risposta 


Il codice di cui sopra presuppone che uno dei Case corrisponderà al valore di Expression, ma non è 
sempre così. Se si prevede che ci potrebbe essere nessuna corrispondenza tra l'espressione 
(Expression) e uno dei vari Expression dei Case, è possibile utilizzare una dichiarazione Case Else alla 
fine della lista. La dichiarazione sarebbe allora simile a questa: 


Select Case Expression 
Case Expression1 
Statement1 
Case Expression2 
Statement2 
Case Expression3 
Statement3 
Case Else 
Statementk 
End Select 


In questo caso, la dichiarazione dopo Case Else viene eseguita se nessuna delle espressioni precedenti 
corrisponde alla espressione principale. Ecco un esempio: 


Sub Test() 
Dim risp As Integer 
risp = InputBox( _ 
"Una di queste parole NON è un termine di VBA" & vbCrLf & vbCrLf & _ 

"1) Function" & vbCrLf & _ 
"2) Except" & vbCrLf & _ 
"3) Each" & vbCrLf & vbCrLf & _ 
"Inserisci la tua risposta ") 

Select Case risp 


Case 1 
MsgBox ("Sbagliato: Function è una parola chiave di Visual Basic" & vbCrLf & _ 


"Viene utilizzata per creare una funzione") 


Case 2 
MsgBox ("Giusto: Except non è una parola chiave di Visual Basic" & vbCrLf & _ 


"ma è una parola chiave utilizzata in C++") 


Case 3 
MsgBox ("Sbagliato: Each è una parola chiave di Visual Basic" & vbCrLf & _ 


"utilizzata in un ciclo per scorrere una lista di voci ") 
Case Else 
MsgBox ("Selezione non valida") 
End Select 
End Sub 
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Ecco un esempio di esecuzione del programma: 


Microsoft Excel XxX _ 
Microsoft Excel X 
Una di queste parole NON è un termine di VBA 
1) Function Annulla Selezione non valida 
2) Except 
3) Each 
Inserisci la tua risposta 


a 


Come accennato nell'introduzione, il Select Case può utilizzare un valore diverso da un numero intero, 
ad esempio, è possibile utilizzare un carattere: 


Sub Test() 
Dim sesso As String 
sesso = "M" 
Select Case sesso 
Case "F" 
MsgBox ("Femmina") 
Case "M" 
MsgBox ("Maschio") 
Case Else 
MsgBox ("Sconosciuto") 
End Select 
End Sub 


î 
Microsoft Excel 


Maschio 
Si noti che in questo caso stiamo usando solo caratteri maiuscoli, se si 
desidera convalidare anche caratteri minuscoli, potremmo essere costretti a 
creare sezioni aggiuntive di Case per ciascuno. Ecco un esempio: 


Sub Test() 
Dim sesso As String 
sesso = "f" 
Select Case sesso 
Case "F" 
MsgBox ("Femmina") 
Case "f" 
MsgBox ("Femmina") 
Case "M" 
MsgBox ("Maschio") 
Case "m" 
MsgBox ("Maschio") 
Case Else 
MsgBox ("Sconosciuto") 
End Select 
End Sub 
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Invece di utilizzare un valore per Case, è possibile applicare più di una condizione, per fare ciò, sul lato 
destro della parola chiave Case, è possibile separare le espressioni con una virgola. Ecco alcuni esempi: 


Sub Test() 
Dim sesso As String 
sesso = "F" 
Select Case sesso 
Case "f", "F" 
MsgBox ("Femmina") 
Case "m", "M" 
MsgBox ("Maschio") 
Case Else 
MsgBox ("Sconosciuto") 
End Select 
End Sub 


32.1 Convalida di una serie di casi 


È possibile utilizzare un intervallo di valori per un Case, a tale scopo, sul lato destro del Case, si deve 
inserire il valore più basso, seguito dalla parola chiave To e seguito dal valore più alto. Ecco un esempio: 


Sub Test() 
Dim eta As Integer 
eta = 24 
Select Case eta 
Case 0 To 17 
MsgBox ("Ragazzo") 
Case 18 To 55 
MsgBox ("Adulto") 
Case Else 
MsgBox ("Anziano") 
End Select 
End Sub 


. 
Questo produrrebbe: | Microsoft Excel 


Adulto 


32.2 Verificare un valore 
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Si consideri la seguente procedura: 


Sub Test() 
Dim num As Integer 
num = 448 


Select Case num 
Case -602 
MsgBox ("-602") 
Case 24 
MsgBox ("24") 
Case 0 
MsgBox ("0") 
End Select 
End Sub 


Ovviamente questa Select Case lavorerà in rari casi solo quando l'espressione di un Case corrisponde 
esattamente al valore richiesto, in realtà, per questo tipo di scenario, è possibile convalidare un 
intervallo di valori. Il linguaggio Visual Basic fornisce un'alternativa, infatti è possibile controllare se il 
valore della espressione risponde a un criterio anziché a un valore esatto. Per crearla, si utilizza 
l'operatore Is con la seguente formula: /s Operator Value 


Si inizia con la parola chiave Is seguita da uno degli operatori booleani che abbiamo visto 
precedentemente, come: =, <>, <, <=,> 0> = e sul lato destro dell'operatore booleano, si digita il valore 
desiderato. Ecco alcuni esempi: 


Sub Test() 
Dim num As Integer 
num = -448 


Select Case num 
Case Is< 0 
MsgBox ("Il numero è negativo") 
Case Is > 0 
MsgBox ("Il numero è positivo") 
Case Else 
MsgBox ("Il numero è 0") 
End Select 
End Sub 


Anche se in questo esempio abbiamo usato un numero naturale, è possibile utilizzare qualsiasi 
confronto logico appropriato in grado di produrre un risultato vero o un falso, inoltre è possibile 
combinare con le altre alternative che abbiamo visto in precedenza, come ad esempio separando le 
espressioni di un Case con una virgola. Con la dichiarazione Select Case, abbiamo visto come 
controllare valori diversi e di intervenire. Ecco un esempio: 


Sub Test() 
Dim num As Integer, cat As String 
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num=2 


Select Case num 


Case 1 
cat = "Ragazzo" 
Case 2 
cat = "Adulto" 
Case Else 
cat = "Anziano" 
End Select 


MsgBox ("La categoria è : " & cat) 
End Sub 


Questo produrrebbe: 


è 
Microsoft Excel 


Abbiamo anche visto che il linguaggio Visual Basic fornisce la 

funzione Choose che può controllare una condizione e intraprendere 
un'azione, inoltre è un'altra alternativa a una dichiarazione Select Case. 
Se prendiamo in considerazione la sintassi della funzione Choose: 


La categoria è : Adulto 


Function Choose( ByVal Index As Double, ByVal ParamArray Choice() As Variant ) As Object 


Si può notare che questa funzione richiede due argomenti, il primo argomento è equivalente a 
Expression della nostra Select Case, e come già detto, il primo argomento deve essere un numero che 
sarà il valore centrale rispetto al quale saranno confrontati gli altri valori. Invece di utilizzare sezioni 
Case si forniscono i corrispondenti valori di ExpressionX come un elenco di valori al posto del secondo 
argomento, separandoli da virgole. Ecco un esempio: 


Choose(num, "Ragazzo", "Adulto", "Anziano") 


Come già menzionato, i valori del secondo argomento sono forniti come una lista e ogni membro della 
lista utilizza un indice. Il primo membro della lista, che è il secondo argomento di questa funzione, ha 
un indice pari a 1, il secondo valore dell'argomento, che è il terzo argomento della funzione, ha un 
indice di 2. È possibile continuare ad aggiungere i valori del secondo argomento come meglio si crede. 
Quando la funzione Choose è stata richiamata, restituisce un valore di tipo Variant ed è possibile 
recuperare tale valore, memorizzandolo in una variabile e usarlo quando se ne ha la necessità 


Sub Test() 
Dim num As Integer, cat As String 
num=1 
cat = Choose(num, "Ragazzo", "Adulto", "Anziano") 
MsgBox ("Il tipo di categoria è: " & cat) 
End Sub 
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Fr 


Microsoft Excel Questo produrrebbe: 


Fino ad ora, abbiamo visto come creare istruzioni condizionali 


Ripa ci calegna È Ragazza normali. Ecco un esempio: 


Sub Test() 
Dim num% 
num% = InputBox("Inserisci un numero inferiore a 5") 
If num% >= 0 Then 
MsgBox (num%) 
End If 
End Sub 


Quando questa procedura viene eseguita, l'utente è invitato a fornire un numero, se questo numero è 
positivo, verrà visualizzata una finestra di messaggio, mentre se l'utente inserisce un numero negativo, 
non succede nulla. In un tipico programma, dopo la convalida di una condizione, si consiglia di agire e 
per fare questo, è possibile creare una sezione del programma all'interno della istruzione condizionale 
di convalida, ma in realtà, è possibile creare un'istruzione condizionale all'interno di un'altra istruzione 
condizionale. 


Questo è indicato come nidificazione condizione. Qualsiasi condizione può essere nidificato all'interno 
di un’altra e possono essere incluse più condizioni all'interno di un’altra. Ecco un esempio in cui una 
condizione If nidificata all'interno di un altro If: 


Sub Test() 
Dim num% 
num% = InputBox("Inserisci un numero inferiore a 5") 


If num% >= 0 Then 
If num% < 12 Then 
MsgBox (num%) 
End If 
End If 
End Sub 


32.3 L’Istruzione Goto 


L'istruzione Goto consente di passare ad un’altra sezione del programma mentre è in esecuzione e per 
poter utilizzare l'istruzione Goto, si deve inserire un nome su una particolare sezione del procedimento 
in modo da poter fare riferimento a tale nome. Il nome, chiamato anche etichetta, è fatto di una sola 


parola e segue le regole che abbiamo applicato ai nomi e poi seguito da due punti ":". Ecco un esempio: 
Sub Test() 


Etichetta1: 
End Sub 
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Dopo aver creato l'etichetta, è possibile elaborarla, inserendo nel codice l’istruzione GoTo seguita 
dall'etichetta, in modo tale che se si verifica una condizione che richiede di inviare il flusso all'etichetta 
corrispondente dopo la parola chiave Goto. Ecco un esempio: 


Sub Test 
Dim num% 
num% = InputBox("Inserisci un numero inferiore a 5") 
If num% < 0 Then 
GoTo Nnum 
Else 
MsgBox (num%) 
End If 


Nnum: 
MsgBox "Hai inserito un numero negativo" 
End Sub 


Allo stesso modo, è possibile creare un numero di etichette necessarie e fare riferimento ad esse 
quando si vuole. Il nome deve essere unico nel suo campo di applicazione e ciò significa che ogni 
etichetta deve avere un nome univoco nella stessa procedura. Ecco un esempio con varie etichette: 


Sub Test() 

Dim risp As Byte 

risp = InputBox(" **__ Voci Multiple __** " & vbCrLf & vbCrLf & _ 
"Per creare una costante nel codice, " & _ 
"devi utilizzare la parola chiave Constant" & vbCrLf & _ 
"Cosa scegli (1=True/2=False)? ") 

If risp= 1 Then GoTo sb 

If risp = 2 Then GoTo gt 


sb: 
MsgBox ("La parola chiave utilizzata per creare una costante è Const") 
GoTo Lv 

gt: MsgBox ("Constant non è una parola chiave") 

Lv: 

End Sub 


Ecco un esempio di esecuzione del programma con risposta = 1: 


E vr 
Microsoft Excel Microsoft Excel 
**__ Voci Multiple _** 
[ox] La parola chiave utilizzata per creare una costante è Const 
Per creare una costante nel codice, devi utilizzare | Annulla | 


la parola chiave Constant 
Cosa scegli (1=True/2=False)? 


Il 
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Ecco un altro esempio di esecuzione dello stesso programma con risposta = 2: 


n 
Microsoft Excel 


lai 
Microsoft Excel 


**__Voci Multiple _** [_oK_} 


Per creare una costante nel codice, devi utilizzare Annulla | 
la parola chiave Constant 


Constant non è una parola chiave 


Cosa scegli (1=True/2=False)? 
J 


32.4 La Negazione di una istruzione condizionale 


Fino ad ora, abbiamo visto come un'istruzione condizionale che è vera o falsa, ma è possibile invertire il 
valore di una condizione, rendendolo Falso (o Vero). A sostegno di questa operazione, il linguaggio 
Visual Basic fornisce un operatore chiamato Not. La sua formula è: Not Expression 


Quando si scrive l'istruzione Not, deve essere seguita da un'espressione logica che può essere una 
semplice espressione booleana. Ecco un esempio: 


Sub Test() 
Dim sposata As Boolean 
MsgBox ("La Signora è : " & sposata) 
MsgBox ("La Signora è : " & Not sposata) 
End Sub 


In questo caso, l'operatore Not viene utilizzato per modificare il valore logico della variabile e quando 
una variabile booleana è stata "negata", il suo valore logico è cambiato. Se il valore logico fosse stato 
Vero , sarebbe cambiato in False e viceversa, pertanto, è possibile invertire il valore logico di una 
variabile booleana di "Notting" o no "Notting" esso. Consideriamo ora il seguente programma: 


Sub Test() 
Dim dsp As Boolean, tax As Double 
tax = 33# 
MsgBox ("Importo tassato :" & tax & "%") 
dsp = True 
If dsp = True Then 
tax = 30.65 
MsgBox ("Importo tassato :" & tax & "%") 
End If 
End Sub 


‘di rr 
Microsoft Excel Microsoft Excel 


Questo produrrebbe: 


Importo tassato : 33% 


Importo tassato : 30,65% 


ia] 
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Probabilmente il modo più classico di utilizzare l'operatore Not consiste in una “retromarcia” di 
un'espressione logica e per fare questo, si precedere l'espressione logica con l'operatore Not. Ecco un 
esempio: 


Sub Test() 
Dim dsp As Boolean, tax As Double 
tax = 33# 
MsgBox ("Importo tassato :" & tax & "%") 
dsp = True 
If Not dsp Then 
tax = 30.65 


MsgBox ("Importo tassato :" & tax & "%") 
End If 
End Sub 


renne ad Questo produrrebbe: 


Allo stesso modo, è possibile negare qualsiasi espressione logica. 
Importo tassato : 33% 
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33. Prendere decisioni - Ciclo If e Select Case 


Finora abbiamo visto delle procedure che sono in grado di portare a termine i compiti assegnati, ma 
però non sono in grado di prendere delle decisioni che permettano di eseguire diverse azioni in 
circostanze differenti, operazione che risultano necessarie in molte situazioni. A volte è necessario che 
sia la procedura stessa ad offrire la possibilità di poter scegliere quale azione intraprendere al verificarsi 
di un determinato evento, per esempio possiamo scrivere una procedura che controlli una colonna in 
un foglio di lavoro per verificare se tutti i numeri sono compresi tra 1 e 10, inoltre la procedura 
potrebbe poi esaminare ogni elemento della colonna separatamente ed eseguire azioni particolari se 
incontra un elemento non compreso nell'intervallo specificato. 


33.1 Ilciclo If 


Poichè le istruzioni per l'esecuzione di scelte modificano il flusso di esecuzione del programma, 
vengono spesso chiamate istruzioni di controllo di flusso o di controllo di programma, ma sono più note 
tecnicamente come istruzioni condizionali e incondizionali. Un'istruzione condizionale è una struttura 
per l'esecuzione di scelte, che sceglie un blocco di istruzioni del codice del programma basandosi su 
una condizione o su un gruppo di condizioni predefinite, mentre un'istruzione incondizionale è 
un'istruzione che modifica semplicemente il flusso di esecuzione della procedura senza dipendere da 
nessuna condizione specifica. Vediamo in dettaglio questo concetto. Per eseguire un'istruzione 
condizionale usiamo la funzione IF d è rappresentata in due modi 


If Condizione Then 
Istruzioni 
End If 


Oppure a riga singola 
If Condizione Then Istruzioni 


Quando VBA incontra un'istruzione condizionale come If ....Then, prima valuta l'espressione logica che 
descrive le condizioni, in base alle quali deve essere eseguita una particolare azione, se l'espressione 
è True (cioè vera) le condizioni predefinite sono state soddisfatte e vengono eseguite le istruzioni 
indicate, mentre End If indica la fine del ciclo decisionale. Vediamo questa procedura con degli esempi 


Sub prova() 

Dim var1 As Integer 

var1="1" 

If var1 = "1" Then MsgBox ("Bravi") 
End Sub 


In pratica la funzione fa questa valutazione: se /a variabile var1 è uguale a "1", [Valutazione delle 
condizioni], e la valutazione è True (cioè è vera), allora fai apparire un messaggio con la scritta Bravi, 
(Esegui l'istruzione), possiamo anche specificare più di un'azione da intraprendere in base alle 
condizioni usando il seguente enunciato 
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If Condizione Then 
Istruzioni 

Else 

Istruzioni per Else 
End If 


In pratica da quanto sopra esposto aggiungiamo altre istruzioni nel caso che la condizione non venga 
soddisfatta, lo possiamo capire meglio con questo esempio 


Sub prova1l() 

Dim var1 As Integer 

var1 ="2" 

If var1 = "1" Then 

MsgBox ("Bravi") 

Else 

MsgBox ("Condizione non soddisfatta") 
End If 

End Sub 


Oppure usando l'enunciato a riga singola 


Sub prova() 

Dim var1 As Integer 

var1 ="2" 

If var1 = "1" Then MsgBox ("Bravi") Else MsgBox ("Condizione non soddisfatta") 
End Sub 


Finora abbiamo visto delle istruzioni condizionali capaci di scegliere un singolo blocco di istruzioni 
alternativo per l'esecuzione della procedura, in molti casi però abbiamo bisogno di fare delle scelte più 
complesse scegliendo fra tre o quattro o più blocchi di istruzioni da eseguire, possiamo in questo caso 
inserire delle istruzioni /f ... Then o If... Then .. Else all'interno di altre istruzioni If ... Then o If... Then .. 
Else, questa operazione si chiama "MWidificare" le istruzioni (nidificare significa mettere un tipo di 
struttura di controllo del flusso all'interno di un'altra), per usare questa sintassi è meglio usare il 
formato a blocchi, per una maggiore chiarezza e semplicità di lettura, l'enunciato è espresso in questa 
forma 


If Condizione Then 
Istruzioni 

Else 

If Condizione1 Then 
Istruzionil 

Else 

Istruzioni 2 

End If 

End If 


Vediamo con un esempio come nidificare più istruzioni ed usiamo anche la funzione InputBox che 
abbiamo visto all'inizio 


LS 


Sub nidifica() 
Dim varl 
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var1 = InputBox(prompt:="Inserisci a quanti gradi metti il termostato del riscaldamento: ", Title:="Misura 


la temperatura di casa") 
If Pianeta > 20 Then 
MsgBox "Troppo caldo, vedrai che bolletta" 
Else 
If var1 > 18 Then 
MsgBox "Temperatura giusta" 
Else 


MsgBox "Temperatura troppo bassa, ti prendi un raffreddore" 


End If 
End If 
End Sub 


Eseguendo questa macro e inserendo il valore 30 otteniamo questo: 


Misura la temperatura di Casa 


Inserisci a quanti gradi metti il termostato del 
riscaldamento: 


Misura la temperatura di casa 


Inserisci a quanti gradi metti il termostato del 
riscaldamento: 


Misura la temperatura di Casa 


Inserisci a quanti gradi metti il termostato del 
riscaldamento: 


Annulla 
ha 


Temperatura troppo bassa, ti prendi un raffreddore 


Per comprendere meglio la nidificazione usiamo anche i colori, all'inizio abbiamo dichiarato la variabile 
var1 ed abbiamo omesso di specificare il tipo di dati, poi tramite la funzione InputBox abbiamo 
richiesto un dato dall'utente e di seguito abbiamo elencato le condizioni. 
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La prima /f var1 > 20 Then confronta il valore della variabile var1 e avendole assegnato il valore 30 
tramite InputBox viene soddisfatta la prima condizione che abbiamo posto, cioè, se var1 è maggiore di 
20, porta a video il messaggio Troppo caldo, vedrai che bolletta a questo punto la condizione è stata 
verificata e soddisfatta, l'esecuzione continua dopo la parola chiave End If, in questo caso segue la 
procedura di colore blu e ci riporta a fine codice. 


Se nell'InputBox inseriamo un valore diverso (ad esempio 20) la prima condizione /f var1 > 20 

Then non viene soddisfatta ed allora passiamo alle istruzioni E/se dove, in questo blocco di istruzioni, 
abbiamo posto 2 condizioni, la prima che viene verificata è /f var1 > 18 Then (Se var1 è maggiore di 18), 
porta a video il messaggio Temperatura giusta, nel nostro caso avendo inserito il valore 20 viene 
soddisfatta questa condizione in quanto è maggiore di 18. Nello stesso blocco F/se abbiamo anche 
posto un'altra condizione senza nessun valore, che significa, semplicemente che se il valore che 
introduciamo con InputBox non soddisfa la condizione If var1 > 18 Then allora il flusso del programma 
esegue le istruzioni di questa istruzione, infatti se inseriamo il valore 15 ci viene riportato a video il 
messaggio "Temperatura troppo bassa, ti prendi un raffreddore". 


Ma perchè queste scelte avvengono così? perchè le istruzioni Else sono contenute completamente 
all'interno dell'istruzione più esterna, e quando viene verificato il valore della variabile Var1 viene 
mandato in esecuzione il blocco di codice quando il valore della variabile è True (vera) ne consegue che 
inserendo il valore 30 Var1 diventa True alla prima condizione ed esegue il flusso di codice di colore blu 
invece se assegniamo a Var1 il valore 20 diventa True alla prima istruzione delle condizioni nidificate 
nel blocco Else, ogni altro valore assegnato [da 1 a 18] alla variabile Var1 viene eseguita l'ultima 
istruzione del blocco Else. Possiamo semplificare il listato della nidificazione usando un'abbreviazione 
che si presenta con If ... Then .. Elself e la possiamo rappresentare con il seguente enunciato 


If Condizione Then 
Istruzioni 

Elself Condizione1 Then 
Istruzionil 

Else 

Istruzioni 2 

End If 


Consideriamo questo enunciato come un'abbreviazione 


Sub nidifica_abbreviato() 

Dim varl 

var1 = InputBox(prompt:="Inserisci a quanti gradi metti il termostato del riscaldamento: ", Title:="Misura 
la temperatura di casa") 

If var1 > 20 Then 

MsgBox "Troppo caldo, vedrai che bolletta" 

Elself var1 > 18 Then 

MsgBox "Temperatura giusta" 

Else 

MsgBox "Temperatura troppo bassa, ti prendi un raffreddore" 
End If 

End Sub 
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33.2 La Funzione Select Case 


Le procedure che abbiamo visto finora sono moto utili con un numero ristretto di scelte da effettuare, 
ma presentano un problema quando ci sono molte condizioni da verificare, tale problema è di natura 
interpretativa in quanto diventa difficile leggere ed interpretare il listato del codice. VBA ci offre però 
un'istruzione condizionale da usare quando dobbiamo scegliere tra un gran numero di possibili scelte. 


L'istruzione Select Case funziona allo stesso modo di più istruzioni IF indipendenti ma è più facile da 
eseguire ed interpretare, usando la parola chiave Select Case con più istruzioni Case, dove ogni 
istruzione Case verifica la presenza di una condizione e se saranno soddisfatte le condizioni, verrà 
eseguito il codice di un solo blocco Case, inoltre un blocco Case può contenere nessuna, una o più 
istruzioni, pertanto da questa breve introduzione possiamo affermare che in presenza di varie scelte da 
effettuare risulta un metodo molto utile e versatile oltre che facilmente leggibile. sintassi 


Select Case espressione 
Case elencoespressione1 
Istruzionil 

Case elencoespressione2 
Istruzioni2 

eic... 

End Select 


Come già citato il concetto e l'utilizzo è uguale a più istruzioni IF, Select Case in più offre la possibilità di 
poter operare varie scelte e anche di utilizzare un operatore per specificare un intervallo di valori 
nell'elenco espressioni, tale operatore è To ed è espresso in questa forma: espressione1 To 
espressione2, per esempio possiamo specificare un intervallo di numeri da 1 a 10 in un elenco Case 
usando la seguente dicitura: Case 1 To 10 


è inoltre possibile usare degli operatori di confronto per selezionare dei blocchi di istruzioni a seconda 
se espressione è maggiore, minore o uguale di espressione, la sintassi è la seguente: 

Is operatore_di_ confronto espressione, che semplificato prende questa forma: Case /s < 10 

Vediamo ora con un esempio pratico di semplificare ulteriormente quanto esposto e trasformiamo la 
routine utilizzata con l'operatore /F con Select Case 


Sub Selec_cast() 
Dim varl 
var1 = InputBox(prompt:="Inserisci a quanti gradi metti il termostato del riscaldamento: ", Title:="Misura 
la temperatura di casa") 
Select Case varl 
Case Is > 25 
MsgBox "Troppo caldo, vedrai che bolletta" 
Case 21 To 23 
MsgBox "Bello caldo, si stà bene" 
Case 17 To 20 
MsgBox "Temperatura giusta" 
Case > 15 
MsgBox "Raffredore assicurato" 
Case Else 
MsgBox "Troppo freddo si ghiaccia' 
End Select 
End Sub 
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Diamo una breve spiegazione a conclusione di questa lezione, sul listato appena esposto, avrete notato 
che è molto intuitivo, ma vediamo assieme come vengono interpretate le varie condizioni. 


Abbiamo dichiarato una variabile [var1] ed abbiamo assegnato alla stessa un valore fornito dall'utente 
tramite la funzione InputBox, all'inizio del ciclo Select Case notiamo che è presente una sola variabile 
[var1], come abbiamo citato nella lezione sulle variabili il risultato di un'espressione contenente una 
singola variabile è il valore memorizzato nella variabile stessa, di conseguenza VBA confronta il valore 
memorizzato nella variabile Var1 con le condizioni specificate in ogni blocco Case dell'istruzione Select 
Case. 


Innanzi tutto VBA controlla il valore della variabile var1 partendo dalla prima clausola Case, se 
assegniamo alla variabile il valore 28 viene subito soddisfatta la prima condizione Case Is > 25 è 
maggiore di 25? in questo caso si, la condizione diventa True e vengono eseguite le istruzioni di quel 
blocco Case, allo stesso modo se la variabile assume il valore 22, la prima condizione non viene 
soddisfatta [non è maggiore di 25] e VBA passa alla seconda [il valore è compreso tra 21 e 23?], Si, 
pertanto la condizione diventa True al secondo blocco Case ed esegue le relative istruzioni. 


In buona sostanza possiamo mettere diverse condizioni, sia singole che intervalli, 


nell'enunciato E/se vengono invece inserite le istruzioni nel caso nessuna delle condizioni elencate 
venga soddisfatta, in questo caso vengono eseguite le istruzioni presenti nel blocco Else 


33.3 Utilizzare la parola chiave To 


Si può utilizzare la parola chiave To nell'espressione da valutare per specificare l'intervallo superiore e 
inferiore dei valori corrispondenti, come illustrato di seguito. Il valore a fianco della parola chiave To 
deve essere minore o uguale al valore a destra della parole chiave To. 


Sub Test1 () 

Dim voti As Integer 

voti = InputBox ("Inserisci Voto") 
Select Case voti 

Caso 70 To 100 

MsgBox "Buono" 

Caso 40 To 69 

MsgBox "Medio" 

Caso 0 To 39 

MsgBox "Bocciato" 

Case Else 

MsgBox "Fuori Valutazione" 
End Select 

End Sub 


33.4 Utilizzare la parola chiave Is 


Per includere un operatore di confronto (=, <>, <,>, <= 0> =) nell'espressione da valutare si utilizza la 
parola chiave Is, che viene inserita automaticamente prima di un operatore di confronto, se non 
espressamente incluso. 
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Sub Test2 () 

'se temperatura è uguale a 39,5, verrà restituito il messaggio "Moderatamente caldo" 
Dim temp As Single 

temp = 39.5 

Select Case temp 

Caso Is > = 40 

MsgBox "Troppo Caldo" 

Caso Is > = 25 

MsgBox "Moderatamente caldo" 
Caso Is>=0 

MsgBox "Troppo Freddo" 

Caso Is <0 

MsgBox "Molto Freddo" 

End Select 

End Sub 


33.5 Utilizzare una virgola per separare più espressioni 


Si possono specificati più espressioni o intervalli in ogni istruzione Case, separando ogni espressione 
con una virgola, che ha l'effetto dell'operatore OR. Più espressioni o intervalli possono essere 
specificati per stringhe di caratteri. 


Sub Test3 () 

Dim var As Variant 

var = "Ciao" 

Select Case var 

Case a, e, i, 0, U 

MsgBox "Vocali" 

Cas2 2, 4, 6,8 

MsgBox "Numeri" 

Caso 1, 3, 5, 7,9, "Ciao" 
MsgBox "Numeri o Ciao" 
Case Else 

MsgBox "Non Valutabile" 
End Select 

End Sub 


‘Confronto tra stringhe testo predefinito in Binary (che è case-sensitive) 

Sub Test4 () 

'Option Compare non è specificato e quindi il confronto testo sarà case-sensitive 
Dim var As Variant, risultato As String 

var = InputBox ("Inserisci dati") 

Select Case var 

Case 1 To 10, 11 To 20: risultato = "Il numero è compreso tra 1 e 20" 

Case "mele" To "uva", "mango", 98, 99: risultato = "Testo tra mele e uva, o mango, oppure tra i numeri 98 
o 99" 

Case Else: risultato = "Non Valutabile" 

End Select 

MsgBox risultato 

End Sub 
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33.6 Impostazione Option Compare 


È possibile confrontare i dati stringa utilizzando metodi di confronto tra stringhe in binario, testo o 
database. (quest’ultimo viene utilizzato solo con Microsoft Access). Option Compare Binary rende 
confronti di stringhe sulla base di un ordinamento binario (in Microsoft Windows, la pagina di codice 
determina il tipo di ordinamento - in cui ANSI 1252 è utilizzato per l'inglese e molte lingue europee), 
inoltre Option Compare Text rende i confronti di stringhe che non si basano su un ordinamento 
testuale case-sensitive 


L'istruzione Option Compare (cioè Option Compare Binary o Option Compare Text ) può essere 
utilizzato per impostare il metodo di confronto e deve essere utilizzato a livello di modulo, prima di 
qualsiasi procedura. Se l'istruzione Option Compare non è specificata, il metodo di confronto testo 
predefinito è Binary. 


Option Compare Binary 

Sub Compare1 () 

Dim str As String 

str = InputBox("Inserisci il testo ") 
Select Case str 

Case "Mele" To "Uva" 

MsgBox " Il testo è tra mele e uva " 
Case Else 

MsgBox "Non Valutabile" 

End Select 

End Sub 

Option Compare Text 

End Sub 


33.7 L’istruzione GoTo 


Si utilizzare l'istruzione GoTo per passare a una linea all'interno della procedura e questa istruzione si 
compone di 2 parti: 


v La dichiarazione GoTo che è la parola chiave GoTo seguita da una etichetta che è l'identificatore 
v L'etichetta che è costituita dal nome della stessa seguita da due punti, e poi ha una riga di 
codice. 


Se viene soddisfatta una condizione, con l'istruzione goto viene trasferito il controllo ad una linea 
separata del codice all'interno della procedura, identificato dall’etichetta. L’ istruzione Goto è di solito 
evitabile se c'è una soluzione alternativa, molte volte è possibile utilizzare If ... Then ... Else o Select 
Case, in quanto GoTo rende il codice poco leggibile e un po’ confuso. Si consiglia di utilizzarlo per la 
gestione degli errori, vale a dire. "On Error GoTo". 
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33.8 Select Case annidati 


Il blocco di istruzioni Select Case può essere nidificato all'interno di ogni altro ciclo, come If ... Then... 
Else e Loop, senza alcun limite. Quando Select Case è nidificato dentro l'altro, deve essere un blocco 
completo e terminare con la propria End Select, all'interno di una specifica Case o Case Else 


Sub select1 () 

Dim rng As Range, int1 As Integer 

Set rng = ActiveSheet.Range ("A1") 

Select Case IsEmpty (rng) 

Case True 

MsgBox rng.Address & "è vuota" 

Case Else 

Select Case IsNumeric (rng) 

Case True 

MsgBox rng.Address e "ha un valore numerico" 
Select Case rng.HasFormula 

Case True 

MsgBox rng.Address & "ha anche una formula" 
End Select 

Case Else 

Int1 = Len (rng) 

MsgBox rng.Address & "ha una lunghezza di testo di" & int1 
End Select 

End Select 

End Sub 
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34. Azioni ripetitive: Il ciclo For e il ciclo For Each 


Ora possiamo vedere come ripetere delle azioni un numero predeterminato di volte se si verifica, o 
non si verifica, una particolare condizione nella nostra procedura. Uno degli svantaggi delle macro è la 
loro incapacità di ripetere le azioni a meno che le azioni desiderate non vengano registrate 
ripetutamente, VBA fornisce diverse strutture potenti e versatili per permetterci di ripetere facilmente 
le azioni e per controllare il modo in cui VBA effettua queste ripetizioni. 


Le strutture del programma che ripetono l'esecuzione di una o più istruzioni sono chiamate Cicli, alcune 
strutture per i cicli sono costruite in modo da venire eseguite un numero impostato di volte, e vengono 
chiamate cicli ad interazione fissa, mentre altri tipi di strutture per i cicli vengono impostate un 
numero variabile di volte sulla base di alcune condizioni impostate, proprio perchè il numero di 
ripetizioni di queste strutture non è definito questi cicli vengono chiamati cicli ad interazione 
indefinita. 


Sia nelle strutture ad interazione fissa che nelle strutture ad interazione indefinita, ci sono alcune 
espressioni che determinano quante volte il ciclo viene ripetuto, questa espressione viene 

chiamata determinante del ciclo, questa espressione in un ciclo ad interazione fissa è quasi sempre una 
espressione numerica, mentre per i cicli a interazione indefinita la determinante del ciclo è solitamente 
un'espressione logica che descrive la condizione sotto la quale il ciclo può continuare o interrompere la 
sua esecuzione, praticamente vengono usate delle espressioni logiche per la determinante dei cicli allo 
stesso modo in cui sono state usate per prendere delle decisioni in VBA. 


34.1 Il ciclo For Next 


La più semplice struttura peri cicli è quella ad interazione fissa, VBA ne fornisce due diverse tipologie 
che vengono espresse così For ...Next e For ...Each ... Next entrambi i cicli vengono chiamati cicli 

For perchè vengono eseguiti per uno specifico numero di volte. Il ciclo For... Next ha la seguente 
sintassi 


For contatore = inizio To fine 
istruzioni 
Next contatore 


contatore viene rappresentato da una qualsiasi variabile numerica, di tipo /Integer o Long, inizio è 
anch'esso rappresentato da una variabile numerica e specifica il valore iniziale per la variabile 
contatore, anche fine è una espressione numerica che rappresenta il valore finale per la variabile 
contatore. Per default VBA incrementa la variabile [I]contatore di 1 ogni volta che esegue le istruzioni di 
un ciclo. La parola chiave Next indica a VBA che è stata raggiunta la fine del ciclo, inoltre la 

variabile contatore, dopo la parola chiave Next, deve essere la stessa variabile contatore che abbiamo 
messo appena dopo l'enunciato For all’inizio della struttura del ciclo. 


Quando VBA esegue un ciclo For, prima assegna il valore rappresentato da inizio alla variabile 
contatore, quindi esegue tutte le istruzioni rappresentate da istruzioni fino a quando non raggiunge la 
parola chiave Next che indica che è stata raggiunta la fine del ciclo. VBA poi incrementa la 

variabile contatore di 1 e ritorna all’inizio del ciclo e confronta il valore corrente della variabile 
contatore col valore rappresentato da fine. Se contatore è minore o uguale a fine esegue nuovamente il 
ciclo. Se invece contatore è maggiore di fine VBA esce dal ciclo e continua la sua esecuzione con la 
prima istruzione dopo la parola chiave Next. Possiamo però anche specificare un valore diverso per 


195 


Microsoft” 


for Applications 


l'incremento della variabile contatore includendo la parola chiave Step [opzionale], in questo caso 
dobbiamo specificare l'incremento della variabile contatore, e la sintassi diventa così : 


For contatore = inizio To fine Step passo 
istruzioni 
Next contatore 


In questo caso l'espressione passo viene rappresentato da una espressione numerica e indica la 
quantità per incrementare la variabile contatore, vediamo qualche esempio 


Sub for_semplice() 
Forl=1T010 
MsgBox (1) 

Next | 

End Sub 


L'esecuzione di questo codice ci porta a video la finestra di messaggio (MsgBox) per 10 volte con il 
valore della variabile | (contatore), se invece vogliamo usare la parola chiave Step e far apparire solo le 
espressioni dispari possiamo modificare il listato in questo modo 


Sub for_step() 
Forl=1To 10 Step 2 
MsgBox (1) 

Next | 

End Sub 


Verranno riportati i soli valori dispari della variabile nella finestra di dialogo di MsgBox. Con la parola 
chiave Step, abbiamo modificato l'incremento della variabile da 1 (di default) a 2, in pratica alla prima 
esecuzione del ciclo | vale 1 ma quando incontra la parola chiave Step viene incrementata di 2, se fate 
“girare” la macro for_step noterete che al primo ciclo viene stampato il valore 1, questo perchè | 
quando incontra la parola chiave Step vale ancora 1, per cambiare valore deve arrivare alla parola 
chiave Next (abbiamo detto che avvisa di essere arrivati alla fine del ciclo e incrementa la variabile). 


L'enunciato For viene interpretato così : For / [Per |] = 1 To 10 [che và da 1 a 10] Step 2 [incrementa di 
2], Esequi le istruzioni , Next | [incrementa il valore di 1], Il ciclo For ..Next ha la flessibilità di poter 
incrementare e decrementare la variabile, possiamo modificare il listato da For/= 1 To 10 Step 2 a For l 
= 100To 1 Step -2 pertanto le possibilità di impiego sono abbastanza vaste, possiamo eseguire somme, 
incrementare e decrementare il valore delle variabili, utilizzare la ciclicità per ogni bisogno che richieda 
il nostro programma fermo restando i principi di impiego esposti all'inizio. 


34.2 Il ciclo For Each 


A differenza del ciclo For... Next il ciclo For Each ... Next non usa un contatore, ma viene eseguito tante 
volte quanti sono gli elementi di un gruppo specifico, come una collezione di oggetti o un vettore. In 
breve il ciclo For Each ... Next viene eseguito una volta per ogni elemento di un gruppo. 

Questo tipo di ciclo ha la seguente sintassi 


For Each elemento In gruppo 


Istruzioni 
Next [elemento] 
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Dove, elemento è una variabile usata per interare il ciclo per tutti gli elementi del gruppo, gruppo è una 
collezione di oggetti o un vettore (matrice), se gruppo è una collezione di oggetti, elemento deve 
essere una variabile di tipo Variant o Object o uno specifico tipo di oggetto come Range, Worksheet, 
Cells e così via. Istruzioni rappresenta nessuna, una o più istruzioni VBA che formano il corpo del ciclo. 
Questo tipo di ciclo ha meno opzioni del ciclo For Next, l'incremento del contatore non è rilevante in 
questo ciclo, perchè viene sempre eseguito tante volte quanti sono gli elementi presenti nel gruppo 
specificato. In pratica non dovendo indicare il numero iniziale e finale per impostare quante volte il 
ciclo deve ripetere le nostre istruzioni, la nostra ricerca sarà rappresentata da quante volte il dato da 
cercare sarà presente nell’area di ricerca e l’inizio sarà sempre dal primo record contenuto nell’area di 
ricerca. Vediamo un esempio: Abbiamo un elenco di nomi nell'intervallo di celle A1:A5 e si deve 
confrontare il valore della cella B1 e verificare se è presente nel Range, possiamo farlo così codice : 


Sub prova_each() 
Dim x As Boolean 
y = Range("B1").Value 
For Each cl In Range("A1:A5") 
If cl= y Then 
x = True 
End If 
Next 
If x = True Then 
MsgBox ("Valore Presente") 
Else 
MsgBox ("Valore Assente") 
End If 
End Sub 


In questo listato elemento è rappresentato dalla variabile y, cioè dal valore contenuto nella cella B1 

e gruppo è rappresentato dal Range A1:A5, mentre il corpo del ciclo è rappresentato dalle istruzioni 
MsgBox se il valore è presente oppure no. In questo tipo di ciclo il numero iniziale da cui partire è 
definito dalla prima cella del Range cioè A1 e il numero finale dall'ultima cella dello stesso Range, cioè 
AS. Adesso il ciclo sa dove iniziare, dove finire e cosa cercare (cerca il valore della cella B1) e scorrendo 
tutte le celle del Range esegue le istruzioni MsgBox se il valore di B1 è presente oppure no nel percorso 
di confronto. 


E’ indubbio che un ciclo For Each rappresenta un modo pratico per sfogliare gli insiemi di una 
collezione, va ricordato che l'istruzione For Each funziona con Set, ovvero assegna un riferimento 
dell'oggetto a una variabile, ma invece di assegnarne uno solo, sceglie tutti gli elementi di una raccolta. 
Quindi, per ogni oggetto della raccolta, esegue tutte le istruzioni fino al’istruzione Next, anche se 
tecnicamente, non è necessario inserire il nome della variabile dopo Next, se lo si utilizza, Visual Basic 
richiede che corrisponda al nome della variabile dopo For Each. Si consiglia di utilizzare sempre la 
variabile del ciclo dopo Next in modo che Visual Basic possa contribuire a evitare bug nella macro. Le 
istruzioni che hanno inizio con For Each e terminano con Next sono definite blocchi For Each o cicli For 


Each. 


34.3 Cicli nidificati 


È possibile nidificare cicli mettendo un ciclo all'interno di un altro, fino a un numero illimitato di volte. 
La variabile contatore per ogni ciclo deve essere univoca ed è possibile nidificare un tipo di ciclo 
all'interno di un altro tipo diverso. In un ciclo for, è necessario che il ciclo interno sia completato prima 
che si esegua l'istruzione successiva del ciclo esterno. È inoltre possibile nidificare un tipo di struttura di 
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controllo all'interno di un altro tipo vale a dire che è possibile nidificare un'istruzione IF all'interno di un 
blocco With che può a sua volta essere annidato all'interno di un For... Each 


Esempio di nidificazione di un ciclo IF all'interno di un blocco With che è annidato all'interno di un For. 
Il codice del ciclo Loop scorre ogni cella nell'intervallo A1: A10, e se il valore della cella è superiore a 5, 
il colore di sfondo viene impostato come giallo, mentre per valori inferiori a 5 viene usato il colore 
rosso 


Sub ciclo1() 

Dim iCell As Range 

For Each iCell In ActiveSheet.Range("A1:A10") 
With iCell 

If iCell> 5 Then 

.Interior.Color = RGB(255, 255, 0) 
Else 

.Interior.Color = RGB(255, 0, 0) 
End If 

End With 

Next iCell 

End Sub 


34.4 Uscita anticipata dal ciclo 


È possibile uscire da un ciclo For (For... Next e For Each ... Next) in anticipo, senza completare il ciclo, 
utilizzando la dichiarazione Exit For che interromperà immediatamente l'esecuzione del ciclo esistente 
e passerà ad eseguire la sezione di codice immediatamente successiva all'istruzione Next, e nel caso di 
livello nidificato interno si ferma ed eseguirà il successivo livello nidificato esterno. Si può avere 
qualsiasi numero di istruzioni Exit For in un ciclo ed è particolarmente utile nel caso in cui si desidera 
terminare il ciclo al raggiungimento di un certo valore o di soddisfare una condizione specifica, o nel 
caso in cui si desidera interrompere un Loop infinito a un certo punto. 


Esempio: Se la cella A1 è vuota, nTotal si somma al valore 25, mentre se la cella A1 contiene il valore 5, 
il ciclo termina ed esce quando il contatore raggiunge il valore 5 


Sub ciclo2 () 

Dim n As Integer, nTotal As Integer 
nTotal=0 

Forn=1T0 10 

nTotal= n +nTotal 

If n = ActiveSheet.Range("A1") Then 
Exit For 

End If 

Next n 

MsgBox nTotal 

End Sub 
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35. Azioni ripetitive: Il ciclo Do Loop 


Abbiamo parlato di due tipi di cicli, quelli ad interazione fissa e quelli ad interazione indefinita, il 

ciclo Do ..Loop appartiene ai cicli ad interazione indefinita, VBA ci fornisce questa istruzione 
estremamente potente per costruire strutture cicliche indefinite nelle nostre funzioni o procedure. 
Essenzialmente è costituito da una singola istruzione: Do. Questa istruzione ha molte opzioni ed è 
talmente flessibile che ci fornisce quattro diverse possibilità per costruire dei cicli raggruppati in due 
diverse categorie di base, che sono i cicli controllati da un contatore e i cicli controllati da eventi, quale 
è la differenza? 


In un ciclo controllato da un contatore, le istruzioni del corpo del ciclo vengono eseguite finchè il valore 
è inferiore o superiore al limite specificato, in sostanza non varia molto dal ciclo For ..Next, eccetto che 
il programmatore è direttamente responsabile per l'inizializzazione della variabile contatore e per 
l'incrementazione o decrementazione del contatore. Potremmo usare il ciclo Do se il passo del 
contatore non è regolare, o se non c'è modo di determinare il limite finale se non dopo che il ciclo ha 
iniziato la sua esecuzione. Per esempio se vogliamo spostarci attraverso 15 righe di un foglio, alcune 
volte avanzando di una sola riga e altre volte avanzando di due righe, poichè il numero di righe da 
avanzare (cioè il passo del contatore) cambia, non possiamo usare il ciclo For ..Next ma dobbiamo 
usare il ciclo Do 


Per i cicli controllati da eventi, le istruzioni vengono eseguite quando la determinante del ciclo diventa 
vera o falsa sulla base di alcuni eventi che si verificano all'interno del corpo del ciclo. Per esempio 
potremmo scrivere un ciclo che viene eseguito indefinitamente fino a quando l'utente non inserisce un 
particolare valore in una finestra di dialogo input, e l'inserimento di questo particolare valore è l'evento 
che termina il ciclo, oppure possiamo eseguire delle operazioni sulle celle di un foglio fino a quando 
non si raggiunge la cella vuota di una colonna, anche in questo caso il raggiungimento della cella vuota 
è l'evento che termina il ciclo. Per ora abbiamo chiarito le due categorie di cicli, abbiamo capito che 
esistono cicli controllati da un contatore e cicli controllati da eventi, vediamo ora la sintassi 


Do 
istruzioni 


Loop Until condizione 


e qualche esempio. 


Sub ciclo1() 

Dim a As Integer 
Do 

a=a+1 
MsgBox (a) 
Loop Until a = 10 
End Sub 


Questo è un ciclo controllato da un contatore, noterete che c'è poca differenza dal ciclo For ..Next, 
infatti otteniamo lo stesso effetto, cioè portiamo a video un messaggio col valore della variabile finchè 
non arriva a 10, ma abbiamo visto poco sopra che abbiamo quattro diverse possibilità di costruire cicli 
divisi in due categorie, ora le categorie le abbiamo viste ( cicli controllati da un contatore e i cicli 
controllati da eventi) vediamo ora i quattro modi di costruire un ciclo, il listato sopra esposto è un 
metodo, vediamo ora gli altri e dopo li commentiamo assieme 
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Sub ciclo2() 

Dim a As Integer 
Do Until a = 10 
a=a+1 
MsgBox (a) 
Loop 

End Sub 


Sub ciclo3() 

Dim a As Integer 
Do 

a=a+1 

MsgBox (a) 

Loop While a <> 10 
End Sub 


Come potete vedere la differenza sta nell'enunciato di dichiarazione del ciclo, il risultato non cambia 
ma le parole chiave e la loro collocazione si, vediamo come viene interpretato l'enunciato : Do Until a = 
10 [Ripeti finchè a = 10], oppure Do While a <> 10 [Ripeti finchè a è diverso da 10], in questi 2 casi la 
differenza fondamentale è che viene verificata la condizione determinante prima che venga eseguito il 
ciclo, infatti se a fosse = a 20 il ciclo non verrebbe eseguito, gli altri 2 metodi Do....... Loop While a <> 10 
e Do....... Loop Until a = 10 vengono interpretati come spiegato sopra, ma la determinate del ciclo viene 
verificata alla fine del ciclo. 


In pratica la forma Do... Loop While e Do ... Loop Until prima vengono eseguite le istruzioni presenti nel 
ciclo e poi quando raggiunge la parola chiave Loop viene verificata la condizione (vedi sintassi) se 
condizione è False (nel caso si usi Until VBA ritorna all'inizio del ciclo ed esegue nuovamente le 
istruzioni del ciclo, se invece usiamo la forma While la condizione da verificare deve essere True, 
mentre nelle altre 2 forme espresse Do Until ...Loop e Do While ...Loop la condizione invece viene 
verificata subito. Vediamo un esempio che semplifica e chiarifica quanto esposto. 

Supponiamo di far comparire a video un Inputbox per chiedere informazioni all'utente, e poi verificare 
se i dati immessi siano validi, in questo caso inseriamo nel nostro ciclo dobbiamo eseguire le istruzioni 
(far comparire il messaggio di Input) e all'inserimento dei dati da parte dell'utente verifichiamo la 
condizione, il listato si presenta così 


Sub esempio1() 

Dim pass As String 

Do 

pass = InputBox(prompt:="Inserisci password di accesso per Proseguire: ", Title:="Controllo accessi") 
Loop Until pass = "Alex" 

MsgBox "Password esatta: Accesso consentito", vbInformation + vbYes, "Verifica Password" 

End Sub 


Se proviamo questo codice vedremmo che il ciclo continua a ripetere le istruzioni finchè non viene 
digitata la password esatta, però se vogliamo uscire perchè non ricordiamo la password?, anche 
premendo sul tasto "Annulla" dell'Inputbox le istruzioni continuano ad essere ripetute lo stesso, allora 
è sempre meglio porre una condizione per evitare di proseguire, ma al tempo stesso controllare che 
l'esecuzione del ciclo avvenga correttamente, in pratica mettiamo l'utente in grado di uscire da un 
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ciclo senza però che eviti di inserire la password richiesta. Per ovviare a questo modifichiamo il listato 
in questo modo. 


Sub esempio2() 

Dim pass As String 

Do 

pass = InputBox(prompt:="Inserisci password di accesso per Proseguire: ", Title:="Controllo accessi") 
If pass <> "Alex" Then Exit Sub 

Loop Until pass = "Alex" 

MsgBox "Password esatta : Accesso consentito", vbInformation + vbYes, "Verifica Password" 

End Sub 


Inserendo la riga con il ciclo IF abbiamo posto una condizione, cioè "Se pass è diverso da "Alex" esci 
dalla sub", attenzione, che esci dalla sub non vuol dire proseguire, ma semplicemente abbandoniamo 
questa routine che in ogni caso per poter proseguire dobbiamo inserire la password giusta, questa 
semplice metodica viene chiamata Uscita forzata dal ciclo". 


Anche con l'altro metodo cioè Do Until ...Loop e Do While ...Loop il risultato non cambia, pertanto non 
c'è una regola ben precisa su quale forma sia meglio usare, possiamo dire che a disposizione VBA ci 
mette queste forme, sta a noi usare quella che ci pare più logica o intuitiva per esprimere quello che 
vogliamo esegua il nostro codice. Se vi ricordate nella lezione precedente avevamo parlato della 
nidificazione del ciclo IF, anche nei cicli For... Next e Do ...Loop è possibile eseguirla, visto che 
l'argomento lo abbiamo già toccato in questo contesto facciamo subito un esempio e dopo lo 
commenteremo assieme 


Sub scrivi_col_for() 

For riga = 12 To 35 

For colonna = 7 To 18 
Cells(riga, colonna).Value = riga 
Next colonna 

Next riga 

End Sub 


Cosa abbiamo fatto? se provate ad eseguire la macro vedrete che nell'area di lavoro abbiamo riempito 
tutte le celle con il numero della riga corrispondente. Vediamo il codice For riga = 12 To 35 il contatore 
del ciclo è rappresentato dalla variabile riga e gli diciamo [Per riga che và da 12 a 35] e subito dopo 
invece di far eseguire le istruzioni gli mettiamo un'altro enunciato For colonna = 7 To 18 in questo caso 
il contatore del ciclo è rappresentato dalla variabile colonna e 


lo interpretiamo così {Per colonna che và da 7 a 18], a questo punto abbiamo posto due condizioni una 
sotto l'altra e subito dopo abbiamo posto le istruzioni Cells(riga, colonna).Value = riga in questo 
enunciato la parola chiave Cells (che vedremmo nella prossima lezione) sta ad indicare una 
determinata cella del nostro foglio localizzata dai valori delle variabili riga e colonna, l'altra parola 
chiave Value indica il valore da inserire nelle coordinate rappresentate, tale valore lo abbiamo 
identificato con riga. 


Seguendo l'esecuzione del ciclo, prima viene eseguito il ciclo interno, e cominciamo dalla cella che si 
trova all'intersezione tra la colonna n° 7 e la riga n° 12 che sul nostro foglio è rappresentata da G12, al 
cui interno scriviamo il valore di riga (per cui 12), poi incontriamo la parola chiave Next colonna, a 
questo punto però non abbiamo ancora raggiunto la determinante del ciclo 
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(rappresentato dal valore [18]) e VBA incrementa il contatore di 1 e ripete le istruzioni, così facendo 
andiamo a scorrere tutte le colonne e scriviamo al loro interno il valore della variabile riga. 


Una volta raggiunta la determinante del ciclo usciamo dal ciclo interno ma troviamo la parola 

chiave Next riga, per cui il contatore del ciclo esterno viene incrementato, passiamo alla riga successiva 
(la 13) e ripetiamo il ciclo interno come abbiamo descritto sopra. Il nostro listato ha fine quando viene 
raggiunta la determinate del ciclo esterno e a questo punto troveremo la nostra area di lavoro riempita 
con il valore della variabile riga estesa sulle colonne di ciascuna riga. Ora che abbiamo riempito l'area 
con il valore della riga tramite un ciclo For Next nidificato potremmo vedere un listato Do Loop per fare 
il contrario, cioè riempire l'area col valore della colonna. 


Sub scrivi_col_dolop() 

riga = 12: colonna = 7 

Do Until riga = 35 

Do While colonna <> 19 

Cells(riga, colonna).Value = colonna 
colonna = colonna + 1 

Loop 

riga = riga + 1: colonna = 7 

Loop 

End Sub 


Notiamo subito una netta differenza tra i due cicli, infatti abbiamo dovuto dichiarare i valori iniziali 
delle variabili riga e colonna prima dell'inizio del ciclo (riga = 12: colonna = 7) in questa tipologia ciclica 
il VBA non riesce a determinare da dove deve iniziare, in quanto la sintassi di espressione è diversa, una 
volta indicati i valori di partenza troviamo la prima parola chiave Do Until riga = 35 [ripeti finchè il 
valore di riga non è uguale a 35] e subito dopo abbiamo posto l'altra condizione che costituisce il ciclo 
interno Do While colonna <> 19 facciamo attenzione a questo enunciato, abbiamo usato la parola 
chiave While e il codice viene interpretato così[ripeti mentre colonna è diversa da 19] ma perchè 19 
dato che l'ultima colonna che dobbiamo riempire è la n° [18]?. 


Lo comprendiamo subito andando avanti con l'analisi del ciclo, possiamo saltare la spiegazione delle 
istruzioni Cells(riga, colonna).Value = colonna in quanto la loro funzione è uguale a quanto spiegato 
sopra per il ciclo For con la sola differenza che riempiamo le celle col valore 


della variabile colonna, mentre la soluzione al quesito posto sta nella riga sotto colonna = colonna + 

1 questo è il nostro contatore, il metodo che usa Do... Loop per incrementarlo e continuare nella sua 
esecuzione, infatti alla prima esecuzione colonna vale 7 e viene incrementata sempre di 1, poi quando 
trova la parola chiave Loop ritorna all'altra parola chiave Do (dove ha iniziato il ciclo) ed esegue ancora 
le istruzioni, ma nella determinante del ciclo abbiamo messo 19 (un valore in più di [18]) 
semplicemente perchè quando incrementiamo il valore della variabile colonna con la dicitura colonna = 


colonna + 1 alla parola chiave Loop la determinate del ciclo sarebbe soddisfatta se mettessimo [18] e di 


conseguenza la nostra area verrebbe riempita fino alla colonna 17 


Provate a modificare il valore nell'esempio allegato e comprenderete come agisce il ciclo, inoltre 
quando si lavora con i cicli e per un motivo qualsiasi ci viene rimandato un errore oppure non viene 
eseguito quello che volevamo, possiamo usare un piccolo espediente per vedere come agisce il ciclo e 
quale valore attribuisce alle variabili usate, infatti basta usare la parola chiave Msgbox e possiamo 
vedere a video il valore della variabile e correggere l'errore. Ecco un esempio di utilizzo 
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Sub scrivi_col_dolop() 
riga = 12: colonna = 7 
MsgBox riga 

Do Until riga = 35 

Do While colonna <> 19 
MsgBox colonna 
Cells(riga, colonna).Value = colonna 
colonna = colonna + 1 
Loop 

riga = riga + 1: colonna = 7 
Loop 

End Sub 


35.1 L’Istruzione Loop Wend 


L'istruzione Loop Wend ripetere un'azione finché una condizione è vera che può essere interpretata 
come: 


While condizione da verificare 
azione intrapresa 
Wend 


Se la condizione è vera, vengono eseguite le azioni indicate nella procedura e quando viene raggiunta 
l'istruzione Wend, la procedura ritorna all'operazione While e la condizione viene verificata 
nuovamente. Se la condizione è ancora vera, il processo viene ripetuto, mentre invece se la condizione 
è falsa, l'esecuzione salta alla prima riga che di codice che segue l'istruzione Wend . 


Sub Test1() 
Dim i As Integer 
i=1 
'Loop attraverso le celle della colonna A . Si esce dal ciclo se la cella (Cells (i, 1)) è vuota 
While Not IsEmpty(Cells(i, 1)) 
'Scrivere il contenuto della cella nella finestra di esecuzione. 
Debug.Print Cells(i, 1) 
'Incrementa la variabile di una unità per testare la cella successiva. 
i=i+1 
Wend 
End Sub 


35.2 L’Istruzione Exit Do 


È possibile uscire dal ciclo Do While senza completare il ciclo completo, utilizzando la dichiarazione Exit 
Do che arresta immediatamente l'esecuzione del ciclo ed esegue la sezione di codice immediatamente 
successiva all'istruzione Loop, e nel caso di cicli nidificati si puà uscire dal ciclo interno ed eseguire il 
successivo livello esterno, in quanto si può avere qualsiasi numero di 


istruzioni Exit Do in un ciclo. Questa istruzione è particolarmente utile nel caso in cui si desidera 


terminare il ciclo al raggiungimento di un certo valore o di soddisfare una condizione specifica, o nel 
caso in cui si desidera interrompere un loop infinito a un certo punto. 
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Esempio: Se la cella A1 è vuota, nTotal si sommano al valore di 55. Se Range ("A1") contiene il valore 5, 
il ciclo termina e uscire quando il contatore (es. n) raggiunge i 5 e nTotal si sommano a 10 (si noti che il 
ciclo non viene eseguito per il controvalore di 5, ed esce il ciclo al raggiungimento di questo valore). 


Sub Test2 () 

Dim n As Integer , nTotal As Integer 
nTotal=0 

Do While n <11 

nTotal= n +nTotal 

n=n+1 

If n = ActiveSheet.Range ("A1") Then 
Exit Do 

End If 

Loop 

MsgBox nTotal 

End Sub 


35.3 Forzare l’uscita dal ciclo 


Forzare l'uscita di un ciclo si corre sempre il rischio di creare un ciclo infinito se la condizione di uscita 
non viene mai soddisfatta e in caso di emergenza, se una macro crea un Loop infinito si può fermare la 
sua esecuzione premendo contemporaneamente i tasti della Ctrl + Pausa . È anche possibile premere il 
tasto Esc e in questo caso viene visualizzata una finestra di errore di esecuzione interrotta, in cui si 
deve cliccare sul tasto Fine per completare la procedura. Se si desidera gestire i tasti Ctrl + Pausa o Esc 
in una macro, si deve utilizzare la proprietà EnableCancelKey : L'esempio sotto riportato mostra come 
personalizzare la finestra del messaggio di errore 


Sub Test3() 

Dim x As Long 

On Error GoTo Fine 

Application.EnableCancelKey = xlErrorHandler 

'si crea un loop per dare tempo di testare la procedura dell'uso del tasto Esc 

Forx=1To 50000 

Cells(x, 1) = x 

Next x 
Fine: 

If Err.Number = 18 Then MsgBox "Operazione Annullata" 
End Sub 
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36. Le Matrici - Statiche e Dinamiche 


Una Matrice (o Array) è una collezione di variabili che condividono lo stesso nome e tipo di dati e 
costituiscono un comodo metodi per memorizzare un certo numero di dati nello stesso contenitore. 
Diversamente da quanto accade con i tipi di dati definiti dall'utente, gli elementi di una matrice devono 
essere tutti dello stesso tipo. Per esempio se si crea una matrice di tipo Integer, tutti gli elementi al suo 
interno devono essere di tipo Integer, in altre parole le matrici vengono utilizzate per rappresentare 
elenchi o tabelle in cui tutti i dati siano dello stesso tipo. Una matrice permette di memorizzare ed 
elaborare una serie di dati utilizzando una sola variabile che permette oltre alla riduzione complessiva 
di nomi di variabili da gestire, la possibilità di utilizzare dei cicli per semplificare l'elaborazione dei 
diversi elementi che la compongono. 


Combinando matrici e cicli (tipicamente cicli For Next e ForEach) è possibile scrivere procedure di 
poche istruzioni che elaborano grandi quantità di dati, che se si dovesse usare nomi distinti per le 
variabili, le stesse procedure potrebbero richiedere centinaia di istruzioni. La forma più semplice di una 
matrice non è altro che un elenco di elementi che vengono definite semplici o unidimensionali 


36.1 Dichiarazioni di matrici 


Per dichiarare una matrice è necessario prevedere il limite superiore (l'ultimo e più grande numero di 
indice), mentre il limite inferiore (il primo e il più piccolo numero di indice) è facoltativo e se si omette 
questo argomento, viene determinato dalle impostazione del modulo, che di default è uguale a 0. Per 
riuscire a tenere traccia delle dimenzioni di un array siano essi statici o dinamici il VBA prevede due 
funzioni, Lbound e Ubound, che restituiscono il valore minimo e massimo per gli indici di un array. La 
sintassi generica per queste funzioni è 


LBound(NomeArray [, dimensione]) 
UBound(NomeaArray [, dimensione]) 


L'argomento “dimensione” è un numero intero che specifica per quale dimensione dell’array si vuole 
ottenere il limite minimo o massimo. Se non viene specificato VBA restituisce l'estremo relativo alla 
prima dimensione dell’array. La funzione "UBound" restituisce il valore della posizione più alta per la 
dimensione indicata di una matrice, mentre "LBound" è l'opposto e restituisce il valore più basso 
possibile, mentre il valore di ritorno per entrambe queste funzioni è un dato di tipo Integer. Quando un 
array utilizza un solo indice viene chiamato "unidimensionale", mentre una matrice 
"multidimensionale" utilizza più di un indice. 


Va ricordato che la dimensione di una matrice è il numero totale di elementi che è determinato dal 
prodotto delle sue dimensioni e per determinare la sua dimensione massima si deve tenere presente 
che gli indici partono da 0 e il valore massimo è definito dal numero indicato nella 


dichiarazione. È possibile dichiarare un array multidimensionale di tipo Byte con la sintassi: Dim K As 
Byte e ottenere la dimensione della matrice utilizzando la funzione "UBound", oppure utilizzare la 
funzione LBound per ottenere il valore più basso possibile per l'indice. Se l'array ha un solo elemento, il 
valore di ritorno di Ubound è uguale a 0 e LBound restituisce sempre 0 finchè l'array non è stato 
inizializzato, anche se non ha elementi. 


Esempio per un array monodimensionale: 
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Dim MyArray1 (5) As String 

Limite Inferiore = Lbound (MyArray1) ‘Restituisce il valore 0 
Limite Superiore = Ubound (MyArray1) ‘Restituisce il valore 0 
Dimensioni = Ubound (MyArray1) - Lbound (MyArray1)+ 6 ‘Restituisce il valore 6 


Si deve tenere presente che quando si utilizzano queste funzioni per un array multi-dimensionale, si 
deve specificare la dimensione in base al quale il limite inferiore o superiore devono essere 
determinati. Dovrebbe risultare familiare l’uso dell'istruzione Dim che abbiamo visto usare per le 
variabili, ma viene usata anche per la dichiarazione di matrici, in effetti la parola chiave Dim è 
un’abbreviazione di dimension e nella versione moderna del VBA la parola chiave Dim permette di 
dichiarare matrici sia unidimensionali che a più dimensioni. La sintassigenerica per la dichiarazione è la 
seguente: Dim Nome_ variabile ([Indici]) [As Tipo] 


Nome_ variabile rappresenta un qualsiasi nome per la matrice che risponda alle regole di VBA peri 
nomi delle variabili e l'argomento /ndici rappresenta le dimensioni della matrice, che è possibile 
dichiarare con un numero di dimensioni fino a 60. Per una matrice unidimensionale si usa una sola 
dichiarazione di indici, per una a due dimensioni se ne includono due separate da una virgola e via così 
fino a raggiungere il numero di dimensioni desiderato per la matrice. La sezione Indici ha la seguente 
sintassi [minimo To] massimo [, [minimo To] massimo] 


Minimo specifica il valore minimo valido per l'indice della matrice e massimo quello più alto, si deve 
tenere presente che è richiesto soltanto il limite superiore, in quanto l'indicazione del valore minimo 
per l'indice è opzionale. Se si specifica solo il limite superiore, VBA numera gli elementi della matrice 
coerentemente con l'impostazione Option Base, se è stato specificato Option Base 1, VBA numera gli 
elementi della matrice da 1 al valore massimo, in caso contrario gli elementi della matrice vengono 
numerati da 0 al valore massimo. Per esempio 


Dim gennaio (1 to 31) As String 
Dim gennaio(31) As String 


Nella seconda riga del listato poco sopra si presume Option Base 1 e specificando la parte minimo To si 
facilita la comprensibilità del codice e si semplifica la ricerca di errori, rendendo i programmi più 
affidabili. Dichiarare la parte minimo To permette anche di specificare come valore di partenza per 
l'indice un valore diverso da 0 o 1. Per esempio potreste voler creare una matrice i cui elementi siano 
numerati da 5 a 10 0 da -5 a 0, a seconda della particolare operazione che intendete compiere. Come 
nelle normali dichiarazioni di variabili, è possibile dichiarare per una matrice un particolare tipo di dati 
specificando la parte As tipo, in questo modo ogni elemento della matrice sarà del tipo specificato, che 
può essere qualsiasi tipo di dato VBA valido 


Finora abbiamo visto matrici dotate di indici che iniziano da 0 (zero-based), che secondo questa 
convenzione di numerazione, l'indice del primo elemento di qualsiasi dimensione di una matrice è 0, 
una matrice di 5 elementi ha dunque indici che vanno da 0 a 4. Evidentemente la numerazione zero- 
based può generare confusione perché l'elemento di indice zero in realtà indica il primo componente 
della matrice l'indice 4 indica il quinto elemento e così via. Sarebbe molto più comodo se gli elementi di 
una matrice fossero numerati a partire da 1 invece che da 0. In questo caso l'indice 1 indicherebbe 


il primo elemento della matrice, l'indice 5 il quinto e così via. Fortunatamente VBA permette di 
specificare il numero iniziale per gli elementi di una matrice, infatti è possibile specificare se si desidera 
che gli indici della matrice partano da 0 o da 1 con l’istruzione Option Base che presenta questa 
sintassi: Option Base 0[1 
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L'istruzione Option Base permette di impostare 0 o 1 come indice di base della matrice, in mancanza di 
questa istruzione VBA assegna per default la numerazione degli elementi della matrice a partire da 0. 
L'istruzione Option Base deve essere inserita nell’area delle dichiarazioni di un modulo prima di 
qualsiasi dichiarazione di variabile, costante o procedura e non può comparire all’interno di una 
procedura. Ecco due esempi 


Option Base0 ‘Impostazione predefinita 
Option Base1 ‘Gli indici della matrice partono da 1 


36.2 Matrici Unidimensionali 


Un array monodimensionale è un elenco di elementi che hanno una singola riga o una singola colonna, 
ad esempio, le vendite trimestrali di una società durante l'anno (la dimensione sarà la riga o la colonna 
dei 4 trimestri dell'anno per il quale i dati di vendita saranno inseriti). Di seguito vediamo alcune 
dichiarazioni per creare un array: 

Per creare un array con 7 elementi, con i numeri di indice 0-6 (il valore predefinito del limite inferiore è 
0) si usa la sintassi. Dim prova1(6) As String oppure Dim prova1(0 To 6) As String. 


In questo secondo caso il limite inferiore deve essere specificato in modo esplicito, con la parola 
chiave To. Supponiamo di avere un array che ha 20 elementi in cui i numeri di indice vanno da 1a 20si 
può usare la seguente dichiarazione: Dim prova2(1 To 20) As Integer. 


Nel caso si abbia un array con 51 elementi in cui i numeri di indice vanno da 100 a 150 si può usare la 
seguente dichiarazione: Dim prova2(100 To 150) As Integer. in sostanza i formati per una dichiarazione 
di matrice unidimensionale, con e senza specificare il limite inferiore possono essere rispettivamente: 


Dim ArrayName(Index) as DataType 
‘oppure 
Dim ArrayName(First_Index To Last_Index) as DataType, 


pertanto possiamo riassumere che il nome è legato al fatto che un elenco di dati è assimilabile a una 
linea tracciata su un foglio, che ha una sola dimensione, e una sola lunghezza, ed è 
quindi unidimensionale o monodimensionale. 


Elemento 0 
Elemento 1 


Elemento 2 | La figura sopra esposta rappresenta una matrice unidimensionale e ogni dato 

Elemento 3 | memorizzato nella matrice è detto elemento della matrice e come si vede in 

Elemento 4 | figura la matrice contiene 5 elementi, ciascuno dei quali contiene un numero di 
tipo Double, noterete anche che gli elementi della matrice sono numerati da 0 a 4 per un totale di 5 e 
che la numerazione parte da zero. Per accedere al dato memorizzato in un certo elemento si usa il 
nome della matrice seguito dal numero (detto indice) dell'elemento desiderato racchiuso tra parentesi 
tonde. Per esempio se il nome della matrice fosse NumMat la seguente istruzione assegnerebbe il 
valore 11,6 alla variabile alex 


alex = NumMat(3) 
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Nell'esempio sopra riportato 3 è l'indice della matrice, è racchiuso tra parentesi tonde e non è separato 
da spazi dal nome della matrice. Visto che la numerazione degli elementi parte da zero, l'elemento a 
cui fa riferimento l'istruzione è in realtà il numero 4 di NumMat e quando si esegue questa istruzione 
VBA legge il valore 11,6 dall'elemento della matrice indicato e lo memorizza nella variabile alex come 
per qualsiasi assegnamento. L'indice viene anche utilizzato tutte le volte che si vuole salvare un valore 
in un certo elemento della matrice, l'istruzione seguente, per esempio, memorizza nel secondo 
elemento della matrice il valore 12: NumMat(2) = 12 


Quando VBA esegue l'istruzione sopra riportata, scrive il valore 12 nell'elemento della matrice indicato, 
sostituendone il contenuto precedente, esattamente come per qualsiasi assegnazione, potete usare gli 
elementi di una matrice all’interno di una espressione VBA come se si trattasse di una qualsiasi 
variabile. Vediamo degli esempi di codice per un array monodimensionale: 


Sub demo1() i i 
Dim K1(3) As String Microsott Excel b.d 
K1(0) = "Primo " 

K1(1) = "Secondo " 

K1(2) = "Terzo " 

K1(3) = "Quarto " 

MsgBox K1(0) & "-" & K1(1) & "-"& K1(2) & "-" & K1(3) 
End Sub 


Primo - Secondo - Terzo - Quarto 


Sub demo2() 

Dim K2(-3 To 2) As String passeri Pool 

K2(-3) = "Uno" 

K2(-2) = "Due" Uno - Due - Tre -Quattro - Cinque - Sei 
K2(-1) = "Tre" 


K2(0) = "Quattro" 
K2(1) = "Cinque" 
K2(2) = "Sei" 
MsgBox K2(-3) &" -" & K2(-2) &"-" & K2(-1) & " -" & K2(0) & " -" & K2(1) &"-" & K2(2) 
End Sub 


‘ gestire gli array monodimensionali con un ciclo 


Sub demo3() A B 
Dim i As Integer Nome Peso 
Dim nome(2 To 5) As String, peso(2 To 5) As Single Mario 95 Kg. 
Fori=2T05 Piero 96 Ka. 
nome(i) = InputBox("Inserisci il Nome") Alice 47 Kg. 
peso(i) = InputBox("Inserisci il Peso") Rosa 45 Kg. 


Sheet4.Cells(i, 1) = nome(i) 
Sheet4.Cells(i, 2) = peso(i) & " Kg." 
Next i 

End Sub 
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36.3 Matrici Multidimensionali 


Le matrici unidimensionali vanno bene finchè si tratta di rappresentare semplici elenchi di dati, spesso 
però nei vostri programmi vi troverete a dover rappresentare tabelle di informazioni in cui i dati sono 
organizzati in righe e colonne, più o meno 


come accade in un foglio di Excel, per farlo 


124 Elemento 1,0 | dovete ricorrere a una matrice 


Elemento 0,1 multidimensionale, che rappresentiamo 
11 nella figura a lato 
Elemento 0,3 16 | 13 | Elemento 1,3 i ab FR 
na matrice bidimensionale ha 


dimensioni, comprendenti righe e colonne 
e utilizza due indici, uno rappresenta le 
righe e l'altro rappresenta le colonne e vengono utilizzati quando è necessario specificare un elemento 
con due attributi, ad esempio, le vendite trimestrali di una società nel corso degli ultimi 5 anni (una 
dimensione saranno i 4 trimestri dell'anno e la seconda dimensione saranno i 5 anni). Un array 
bidimensionale appare con una forma a tabella, con più righe e colonne: Sintassi 

Dim ArrayName (Index1, Index2) As DataType oppure 

Dim ArrayName (First_Index1 To Last_Index1, First_Index2 To Last_Index2) As DataType. 


Per esempio se si dichiara un array bidimensionale si utilizza la seguente forma: 
Dim prova (7,9) As Long oppure Dim prova (7,1 To 9) As Long, tenendo presente che il limite inferiore 
può essere specificato in modo esplicito in una o entrambe le dimensioni. 


Semplificando quanto esposto possiamo affermare che le matrici multidimensionali devono il loro 
nome al fatto di avere più di una dimensione, la lunghezza (il numero di righe) e la larghezza (il numero 
di colonne), come si vede in in figura sopra, la matrice ha due colonne (numerate 0 e 1) e 5 righe 
numerate da 0 a 4 per un totale di 10 elementi. Per accedere agli elementi di matrici multidimensionali 
si usa un indice, cioè si usano i riferimenti di riga e colonna per identificare un certo elemento. 
L'indicizzazione di una matrice bidimensionale assomiglia molto al metodo per identificare le celle di un 
foglio di lavoro di Excel, la prima dimensione della matrice corrisponde alle colonne del foglio di lavoro 
e la seconda alle righe. 

Se chiamiamo NewMat la matrice della figura sopra esposta la seguente istruzione assegna alla 
variabile alex il valore 12,4 (prima riga, seconda colonna della matrice): alex = NewMat(1,0) 


Analogamente, la seguente istruzione memorizza il valore 5,5 nella seconda riga della prima colonna 
della matrice: NewMat(0,1) = 5,5. Da notare che in entrambe le precedenti istruzioni gli indici della 
matrice sono racchiuse tra parentesi e che le coordinare della colonna e della riga sono separate da 


0 Tuta |___ a | 


Elemento 0,0,0{Elemento 0,1,0||Elemento 1,0,0|Elemento 1,1,0|{|Elemento 2,0,0|Elemento 2,1,0 
Elemento 0,0,1|Elemento 0,1,1||Elemento 1,0,1|Elemento 1,1,1||Elemento 2,0,1|Elemento 2,1,1 


Elemento 0,0,2|Elemento 0,1,2 
Elemento 0,0,3|Elemento 0,1,3 
Elemento 0,0,4|Elemento 0,1,4 


Elemento 1,0,2|Elemento 1,1,2||Elemento 2,0,2|Elemento 2,1,2 
Elemento 1,0,3|Elemento 1,1,3||Elemento 2,0,3|Elemento 2,1,3 
Elemento 1,0,4|Elemento 1,1,4||Elemento 2,0,4|Elemento 2,1,4 
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virgole. Le matrici possono avere più di due dimensioni, la figura sottostante mostra una matrice a tre 
dimensioni con una lunghezza, una larghezza e una profondità (per modo di dire) 


Potete pensare ad una matrice tridimensionale come all'insieme delle pagine di un libro in cui ogni 
pagina contenga una tabella con lo stesso numero di righe e colonne. Nella figura sopra riportata la 
nostra matrice è di tre pagine (per riprendere l'esempio del libro) numerate da 0 a 2 e ogni pagina 
contiene una tabella di 2 colonne e 5 righe, e nelle caselle di ogni elemento sono riportate le 
coordinate nella matrice. Esempio di una matrice a due dimensioni 


Sub demo2() 

Dim i As Integer, n As Integer 
Dim vendi(1 To 4, 1 To 5) As Long 
vendi(1, 1) = 500 

vendi(2, 1) = 520 

vendi(3, 1) = 545 

vendi(4, 1) = 595 

vendi(1, 2) = 410 

vendi(2, 2) = 440 

vendi(3, 2) = 425 

vendi(4, 2) = 485 

vendi(1, 3) =320 
vendi(2,3)=330 

vendi(3, 3) = 335 

vendi(4, 3) = 300 

vendi(1, 4) = 250 

vendi(2, 4) = 280 

vendi(3, 4) = 275 

vendi(4, 4) = 205 
vendi(1,5)= 150 

vendi(2, 5) = 180 

vendi(3, 5) = 175 

vendi(4, 5) = 105 
Fori=1T04 

Forn=1To05 

Foglio1.Cells(i + 1, n + 1) = vendi(i, n) 
Next n 

Next i 

End Sub 


A B E D E F 
Anno Anno1 Anno2 Anno3 Anno4 
prova1 500 410 320 250 150 
prova? 520 440 330 280 180 
prova3 545 425 3355 275 175 
provad — 595 485 300 205 105 


Maw 


36.4 Matrici Statiche e Dinamiche 


In VBA possono essere create due tipi di matrici, matrici a dimensione fissa o statiche e matrici 
dinamiche. Una matrice che ha un numero fisso di elementi è una matrice di dimensioni fisse e viene 
utilizzato quando si conosce il numero preciso di elementi che verranno contenuti nella matrice, però 
la maggior parte delle volte sarà necessario creare array dinamico, perché non si sa l'esatta dimensione 
della matrice richiesta all'inizio e serve una certa flessibilità per modificare il numero di elementi della 
matrice. 


Normalmente la dichiarazione di una matrice indica a VBA l'estensione delle varie dimensioni che 
provvede ad allocare una quantità di memoria sufficiente per tutti gli elementi della matrice, nel caso 
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della matrice di figura 1 VBA alloccherebbe memoria per 5 interi mentre per la matrice di figura 6 VBA 
alloccherebbe memoria per 10 elementi. VBA riserva spazio in memoria per tutti gli elementi della 
matrice finchè la relativa variabile esiste, matrici di questo tipo vengono dette Statiche perché il 
numero di elementi non cambia. Scegliere la dimensione di una matrice può essere complicato se non 
sapete a priori quanti dati dovrà ospitare o se la quantità di dati raccolti è molto variabile. 


Se a volte gli elementi da memorizzare sono 100 e altre volte 10, potenzialmente vi troverete a 
sprecare lo spazio per memorizzare 90 elementi inutili (è la differenza tra il numero maggiore di 
elementi e il minore), per casi come questi il VBA prevede un tipo particolare di matrice, 

detto dinamico. Le matrici dinamiche sono definite in questo modo perché è possibile modificarne il 
numero di elementi durante l'esecuzione del programma e le matrici dinamiche se associate a una 
corretta programmazione possono crescere o stringersi per far posto esattamente al numero di 
elementi necessari eliminando lo spreco di spazio. Per modificare le dimensioni di una matrice 
dinamica si usa l'istruzione Redim. 


E’ possibile dichiarare una variabile dinamica con le dimensioni dell'indice vuoto e successivamente 
dimensionare o ridimensionare la matrice dinamica che è già stata dichiarata, utilizzando 

l'istruzione ReDim. Per ridimensionare un array, è necessario fornire il limite superiore, mentre il limite 
inferiore è facoltativo e se non si menziona verrà determinato dalle impostazione del modulo, che di 
default è Option Base 0. Per esempio è possibile dichiarare la matrice prova1 come una matrice 
dinamica in questo modo: Dim prova1 () As String, per ridimensionare le dimensioni della matrice e 
portarla a 3 elementi (specificare Option Base 1), si utilizza l'istruzione Redim in questo modo: 

ReDim prova1 (3) As String, si può utilizzare una matrice dinamica invece di una a dimensione fissa, se 
si desidera regolare il numero di record nel database in fase di esecuzione. Esempio di array dinamico 


Option Base 1 

Sub prova2() 

Dim prova1() As String 

ReDim prova1(3) As String 

prova1(1)= "Lunedì" 

prova1(2) = "Martedì" 

prova1(3) = "Mercoledì" 

MsgBox prova1(1) & " -" & prova1(2) & "-" & prova1(3) 
End Sub 


Option Base 1 

Sub prova3() 

Dim prova2() As String 
ReDim prova2(3) As String 
prova2(1)= "Lunedì" 
prova2(2) = "Martedì" 
prova2(3) = "Mercoledì" 
ReDim prova2(4) As String 
prova2(4) = "Giovedì" 
MsgBox prova2(1) & " -" & prova2(2) & " -" & prova2(3) & "-" & prova2(4) 
End Sub 
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36.5 Array Dinamici — Preserve e Redim 


Quando un array viene ridimensionato utilizzando l'istruzione ReDim, i suoi valori si potrebbero 
perdere, per ovviare a questo possibile inconveniente e garantire che i valori della matrice non siano 
persi, si utilizza la parola chiave “Preserve” l'istruzione ReDim, che consentirà di conservare i dati 
esistenti nella matrice. Ad esempio, prima viene usata l'istruzione ReDim per dimensionare la matrice 
prova2: "ReDim prova2 (3) As String" che veniva popolata con 3 elementi, ora per ridimensionare la 
matrice e consentire la memorizzazione di 4 variabili senza perdere i dati esistenti, è necessario 
utilizzare l'istruzione "ReDim Preserve myArray (4) As String". Vedere l'esempio sotto riportato 


Option Base 1 

Sub demo4() 

Dim New_mat() As String 

ReDim New_mat(3) As String 
New_mat(1) = "Primo" 

New_mat(2) = "Secondo" 

New_mat(3) = "Terzo" 

ReDim Preserve New_mat(4) As String 
New_mat(4) = "Quarto" 

MsgBox New_mat(1) & " - " & New_mat(2) & " - " & New_mat(3) & " - " & New_mat(4) 
End Sub 


Si deve tenere presente che la dichiarazione Redim presenta le seguenti caratteristiche: 


v_ Non può cambiare il tipo di dati della matrice 

v._ Non può modificare il numero di dimensioni in un array 

v Se si utilizza la parola chiave "Preserve", è possibile ridimensionare solo l'ultima dimensione 
della matrice, in modo che in un array multidimensionale gli stessi limiti devono essere 
specificati per tutte le altre dimensioni. 


Vedi esempio sotto riportato. Si suppone di avere una tabella come mostrato nella figura sotto 
riportata che riporta le vendite per anno suddivise per reparto. Con le istruzioni che abbiamo appena 
visto si andrà a ridimensionare la matrice prima estendendola a 4 anni per poi ridurla a 2 anni. 


A VINSE dI EI DI ELI JE 


ci i 1 Ì ì Ì i | 


Anno Annol Anno2 Anno3 Anno4 


|Reparto1 500 | 410 | 320 | 250 | 150 
|Reparto2 520 | 425 | 350 | 240 | 180 
|Reparto3 545 | 485 | 390 | 290 | 190 
|Reparto4 595 | 413 | 300 | 260 | 135 


Lon {4a [I INI (ha 
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Sub demo_6() 

Dim annO As Integer, reP As Integer, ampliaM As Integer, limitl As Integer, limitS As Integer, limitSR As 
Integer, rng As String 

Dim matriC() As Integer 

'la 1° dimensione specifica i 4 trimestri, la 2° dimensione specifica 2 anni di dati 

ReDim matriC(1 To 4,1T02) 

'Stabilire i limiti superiori delle 2 dimensioni 

limitl = UBound(matriC, 1) 

limits = UBound(matricC, 2) 

For annO = 1 To limitS 

For reP= 1 To limitl 

matriC(reP, annO) = InputBox("Inserisci le vendite del reparto " & reP & " per l'anno " & annO) 
Foglio1.Cells(reP + 1, annO + 1) = matriC(reP, annO) 

Next reP 

Next annO 

If MsgBox("Continuare al prossimo anno?", vbQuestion + vbYesNo, "Confirmation") = vbYes Then 
'con ReDim aumentiamo i dati di vendita a tre anni, dai 2 precedenti, per i 4 trimestri 

ReDim matriC(1 To 4, 1 To limitS + 1) 

'Determinare il limite superiore della seconda dimensione, dopo il ridimensionamento 

limitSR = UBound(matriC, 2) 

'si cicla per ciascuno dei 4 trimestri, inserendo i dati di vendita per l'anno aggiuntivo 

For ampliaM = 1 To limitl 

matriC(ampliaM, limitSR) = InputBox("Inserire i dati di vendita " & ampliaM & " per l'anno " & limitSR) 
Foglio1.Cells(1, 4) = "Anno 3" 

Foglio1.Cells(ampliaM + 1, limitSR + 1) = matriC(ampliaM, limitSR) 

Next ampliaM 

End If 

If MsgBox("Continuare con la riduzione della matrice?", vbQuestion + vbYesNo, "Confermare") = vbYes 
Then 

'è possibile inserire qualsiasi condizione, come cancellare i dati immessi in precedenza 

With Sheets("Foglio1") 

rng = .Name & "!" & .Cells(2, "B").Address & ":" & .Cells(limitl + 1, limitS + 2).Address 

End With 

Foglio1.Range(rng).ClearContents 

'ora la matrice conterrà i dati di vendita per due anni 

ReDim matriC(1To 2,1T02) 

For ann0 =1T02 

For reP=1T02 

matriC(reP, annO) = InputBox("Inserisci i dati di vendita " & reP & " per l'anno " & annO) 
Foglio1.Cells(reP + 1, annO + 1) = matriC(reP, annO) 

Next reP 

Next annO 

End If 

End Sub 
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Anno Annol Anno2 Anno3 Anno4 
320 410 320 Terminata la fase di inserimento dei 2 anni, 
"gra e Aa leale] | viene richiesta la conferma per continuare 


sì al prossimi anni 


| PIENE E ZIBA 
VICFOSOTI EXCE 


Inserisci le vendite del reparto 1 per l'anno i 


Anno Annol Anno2 Anno3 A 


320 | 250 
350 | 24 
| 
| 


Inseriti i dati dell’anno richiesto ritorna un 
messaggio per ridurre la matrice 


cara ta 


Confirmation i 
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Cliccando sul pulsante Si verranno cancellati i dati, ridotta la matrice e richiesti nuovi dati 


Anno AnnolAnno3 Anno3 -Anno4: 


Anno Annol Anno3 
320 | 360 
350. | 35. | 
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37. Gestione degli errori - Metodi e Proprità 


La gestione degli errori si riferisce ad una particolare tecnica di programmazione che consiste 
nell’anticipare e prevedere le condizioni di errore che possono sorgere quando il programma viene 
eseguito. In generale gli errori possono essere di tre tipi: 


v_ Errori di sintassi: Come errori di battitura o variabili non dichiarate che impediscono il corretto 
funzionamento 

v_ Errori run-time: Che si verificano quando VBA non può eseguire correttamente una 
dichiarazione del programma. 

v_ Errori Logici: Come un utente immette un valore negativo in cui solo un numero positivo è 
accettabile 


37.1 Errori di sintassi 


Viene detta sintassi lo specifico ordine di parole che costituisco un enunciato VBA valido e alcuni dei 
più comuni messaggi di errore che possono verificarsi mentre si scrive o si edita una procedura sono 
relativi a errori di sintassi. | messaggi di errore di sintassi segnalano un problema in un enunciato quali, 
virgole, virgolette argomenti mancanti o simili. Ogni volta che si scrive una nuova riga di codice o se ne 
modifica una, il VBA esamina la riga non appena il cursore si sposta da essa. Questa operazione che 
viene detta Parsing è il processo di scomposizione di un enunciato nelle varie parti al fine di 
determinare quali sono le parole chiave, le variabili o i dati. Dopo che il VBA ha esaminato senza 
rilevare errori una riga di codice, procede alla sua compilazione (in VBA la compilazione è la 
conversione del codice sorgente in una forma direttamente eseguibile dal VBA senza dover ripetere 
l'operazione di Parsing) 


Si deve tenere presente che la finestra del codice nell'Editor di VB presenta le parole scritte in vari 
colori, questa "applicazione" del colore viene eseguita dopo aver esaminato una riga di codice e non 
aver rilevato errori, al contrario, se viene rilevato un errore in fase di esame o compilazione della riga il 
VBA colora di rosso l’intera riga e visualizza una finestra di dialogo con un messaggio di errore 


37.2 Errori Run - Time 


E’ possibile scrivere un enunciato VBA senza alcun errore di sintassi, ma che tuttavia non porta a 
un’esecuzione corretta, gli errori che si manifestano solo in fase di esecuzione della procedura vengono 
detti errori runtime. Ne esistono di vari tipi e di solito sono causati dalla mancanza di argomenti o 
dall'uso di argomenti di tipo errato, dalla mancanza di certe parole chiave o dal tentativo di accedere a 
dischi o directory non esistenti o da errori logici. 


37.3 Errori Logici 


Questo tipo di errore è il più difficile da tracciare se la sua sintassi è corretta e funziona senza 
rimandare errori di esecuzione, si può definire come un errore da nessuna indicazione all'utente che si 
è verificato un errore dovuto al fatto che un errore logico è il processo di logica e non il codice stesso a 
generare l'errore. L'esecuzione di un calcolo in un foglio di lavoro utilizzando una funzione restituirà 


220 


Microsoft® 


for Applications 


una risposta, ma è la risposta corretta? Per meglio comprendere simuliamo un errore scrivendo il 
codice sotto riportato in un modulo e mandandiamolo in esecuzione 


Sub prova() 
Sheets("Foglio11").Range("F5").Select 
End Sub 


Il cui significato è: vai nel Foglio 11 di questa cartella e seleziona (Select) la cella F5 Range("F5"). 
Tornando ad Excel (basta cliccare sulla prima icona col simbolo di Excel in alto a sinistra) e mandando in 
esecuzione la macro (premere ALT+F8, selezionare il nome della macro e poi Esegui) e comparirà un 
avviso come quello sotto riportato 


| Microsoft Visual Basic 


Errore di run-time '13": Come si può intuire dal testo si tratta di un 
errore generato dal codice, premendo sul 
pulsante Debug verrà automaticamente 
aperto l'editor di VBA e verrà riportata la 
routine (o Sub) che lo ha causato 


Tipo non corrispondente 


Nella figura di lato si può notare che la riga 
di codice che ha causato l'errore è già 
evidenziata in giallo e questo facilita 
notevolmente le cose, l'errore è già 
individuato e si può intervenire e 
correggere il codice, tuttavia l'errore ha 
End Sub bloccato l'esecuzione della macro e per 
poter continuare ad operare si deve 
ripristinare l'editor (cioè sbloccarlo) e in 
seguito rimediare all'errore. Per eseguire 
questa operazione basta premere sul 
pulsante blu in alto nella barra degli strumenti contrassegnato dalla freccia rossa, il quale interrompe il 
Debug del codice e ripristina l'uso dell'editor. 


Formato Debug Esegui Strumenti Aggiunte Finestra 


(@ | Riga2, Coli 


Sub provai] 


Spieghiamo ora la natura dell'errore: nella nostra cartella di lavoro, l'errore è stato causato per il 
semplice fatto che non esiste all'interno della stessa un foglio denominato Foglio11, per cui VBA ha 
evidenziato questa situazione con un errore di run-time interrompendo l'esecuzione della macro, in 
pratica non ha trovato il percorso che gli è stato indicato. Esaminiamo ora il seguente codice : 


Sub prova() 
MsgBox “Ciao Mondo”, “Messaggio di saluto” 
End Sub 


Mandando in esecuzione la routine viene rimandato lo stesso avviso del codice precedente. In questo 
caso non ci sono errori di sintassi nell'enunciato MsgBox, i testi sono correttamente posti tra virgolette, 
ed è presente la virgola di separazione tra gli argomenti (Ndr. Tutti gli argomenti di MsgBox, salvo il 
primo, sono opzionali pertanto VBA accetta la presenza di due soli argomenti per MsgBox come sintassi 
corretta), ma quando VBA cerca di eseguire l’enunciato visualizza una finestra di dialogo di errore come 
quella sotto raffigurata. 
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Questa finestra di dialogo informa che l'errore si è verificato in fase di esecuzione della procedura e 
contiene un messaggio che descrive 
l'errore stesso. In questo caso si tratta di 
Errore di run-time '13": un argomento di tipo errato (non 
corrispondente). In effetti esaminando la 
riga, si vede che manca lo spazio che 
funge da segnaposto per il secondo 
argomento, Buttons, facoltativo. Quando 
VBA sottopone al Parsing l’enunciato, 
compila il testo fra virgolette “Messaggio 
di saluto” come secondo argomento di 
MsgBox invece di terzo argomento, a 
causa dell’omissione del segnaposto fra le due virgole. Dato che l'argomento buttons deve essere un 
numero e non un testo, il VBA segnala che il tipo di dati passato alla procedura MsgBox non è del tipo 
giusto per quell'argomento. 


Microsoft Visual Basic 


Tipo non corrispondente 


E' possibile intercettare un errore nel progetto VBA con l'istruzione On Error per deviare il flusso del 
programma verso una routine che gestisca l'errore trasmettendo le istruzioni necessarie per risolverlo. 
Per poter controllare un errore si inserisce all'inizio della routine l'istruzione On Error GoTo [etichetta] e 
quando si verifica un errore, questa parola chiave interrompe l'esecuzione del codice del programma 
per "saltare" alla posizione contrassegnata da [etichetta] che deve trovarsi nella stessa procedura che 
contiene l'istruzione On Error. 


Per esempio se la routine Commandi Click ha come prima istruzione un On error goto err (dove err è il 
nome dell'etichetta) in caso di errore il flusso del programma va direttamente all'istruzione presente 
nell'etichetta err, dove si inserisce il codice o la procedura che tratteranno opportunamente l'errore. 
Se invece tutto il flusso del programma procede correttamente, l'istruzione On Error viene ignorata e si 
arriva alla fine della routine. Ci sono vari modi per gestire un errore utilizzando le istruzioni: 


v On Error GoTo 0: Indica al programma di ignorare l'istruzione in caso di errore e il programma 
continuerà 

v On Error Resume : Indica che in caso d'errore si ritenta di eseguire l'istruzione che lo ha 
generato 

v On Error Resume Next: Indica al programma che in caso d’errore verrà eseguita l'istruzione 
successiva a quella che ha generato l'errore 


E’ abbastanza chiaro che solo utilizzando l'istruzione On Error GoTo [etichetta] si può trattare l'errore 
perché negli altri 3 enunciati la situazione si risolve a prescindere dal tipo di errore, in pratica si salta 
l'errore ma non lo si risolve. Ad ogni modo è consigliabile porre gli enunciati di gestione degli errori alla 
fine di ogni procedura inserendo delle funzioni tipo Exit Sub oppure Exit Function. Vediamo un esempio 
di codice in un routine con gestione degli errori. 


Sub Command1_Click() 
On Error GoTo err 
MsgBox “Ciao Mondo”, “Messaggio di saluto” 
Exit_Command1: 
Exit Sub 


err: 

MsgBox Err.Description 
Resume Exit_Commandl 
End Sub 
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Nel codice di esempio sopra esposto On Error attiva la gestione degli errori, se si verifica un errore la 
prozsezian ra procedura salta all'etichetta di riga err che indica l'inizio della gestione degli 
== errori. La prima riga riporta una finestra di dialogo che visualizza il codice di 
Tipo non corrispondente | errore, poi passa all'istruzione Resume che ci porta alla routine 
Exit_Command1 che con l'istruzione Exit Sub ci fa uscire dalla procedura. Se 
eseguiamo il codice sopra riportato ci riporta un avviso del genere. 


La forma On Error Goto 0, è la modalità predefinita in VBA e indica che quando si verifica un errore di 
runtime VBA dovrebbe visualizzare la sua finestra di messaggio di errore in fase di esecuzione standard, 
consentendo di immettere il codice in modalità di Debug o di terminare il programma VBA. In pratica 
avere On Error Goto 0 è come non avere un gestore degli errori attivato, in quanto qualsiasi errore 
causerà VBA verrà visualizzata la casella di messaggio di errore standard. 


La forma, On Error Resume Next, è la forma più comunemente usata e abusata, con questa espressione 
si insegna a VBA di ignorare essenzialmente l'errore e riprendere l'esecuzione sulla riga successiva di 
codice. E 'molto importante ricordare che On Error Resume Next non risolve in nessun modo l'errore, 
ma indica semplicemente a VBA di continuare come se non ci fosse stato nessun errore. Tuttavia, 
l'errore può avere effetti collaterali, come variabili o oggetti impostati su Nothing non inizializzate ed è 
una responsabilità del codice di verificare una condizione di errore e prendere i provvedimenti 
opportuni. A tale scopo, vedendo il codice sotto riportato si deve testare il valore di Err. Number e se 
non è zero si deve eseguire la correzione appropriata. Per esempio: 


On Error Resume Next 
N = 1/0 
If Err. Number <> 0 Then 
N=1 
End If 


Questo codice tenta di assegnare il valore 1/0 alla variabile N e questo è un'operazione non ammessa, 
e genererà un errore 11 (divisione per zero) e dato che abbiamo l’espressione On Error Resume Next, il 
codice continua, ma in seguito viene verificato il valore di Err. Number e viene assegnato un altro valore 
alla variabile N. La forma On Error Goto [etichetta] indica a VBA di trasferire l'esecuzione alla riga che 
segue l'etichetta di riga specificata e ogni volta che si verifica un errore, l'esecuzione del codice va 
subito alla linea che segue l'etichetta di riga e non viene eseguita nessuna istruzione presente tra 
l'errore e l'etichetta, incluse le affermazioni di controllo del ciclo. 


On Error Goto Err11: 
N=1/0 
'altro codice 
Exit Sub 
Err11: 
'codice di gestione degli errori 
Resume Next 
End Sub 


37.4 Il gestore degli errori abilitato e attivo 


Un gestore di errori è attivato quando un'istruzione On Error viene eseguita e indica il codice che si 
deve occupare di trasferire l'esecuzione in un'altra posizione tramite la dichiarazione 
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On Error Goto [etichetta]. Possiamo definire un blocco di gestione degli errori, una sezione del codice 
che prende il controllo del programma attraverso una dichiarazione. Questo codice deve essere 
progettato sia per risolvere il problema e riprendere l'esecuzione nel blocco di codice principale o di 
interrompere l'esecuzione della procedura, non è possibile utilizzare On Error Goto [label] 
semplicemente per “saltare” tra le linee di codice. Ad esempio, il seguente codice non funzionerà 
correttamente: 


On Error GoTo Err1: 
Debug.Print 1/0 
'altro codice 

Errl: 

On Error GoTo Err2: 
Debug.Print 1/0 
'altro codice 

Err2: 


Quando si verifica il primo errore, il flusso del programma viene trasferito alla linea Err1 ma l'errore è 


ancora attivo quando si verifica il secondo errore, e quindi quest’ultimo non viene intercettato dalla 
istruzione On Error. 


37.5 L'istruzione Resume 


La dichiarazione Resume indica al VBA un punto specifico del codice dove riprendere l'esecuzione, 
inoltre è possibile utilizzare Resume solo in un blocco di gestione degli errori, qualsiasi altro uso 
causerà un errore. Si deve considerare che Resume è l'unico modo, a parte uscire dalla procedura, per 
uscire da un blocco di gestione degli errori. Si deve ricordare di non utilizzare la dichiarazione Goto per 
dirigere l'esecuzione del codice da un blocco di errore, agire in questo modo si causeranno strani 
problemi ai gestori di errori. La dichiarazione Resume può assumere tre forme sintattiche 


v. Resume 
v. Resume Next 
v. Resume [Etichetta] 


Usato da solo, Resume provoca l'esecuzione di riprendere alla riga di codice che ha causato l'errore, in 
questo caso è necessario assicurarsi che il blocco di gestione degli errori risolva il problema che ha 
causato l'errore iniziale, in caso contrario, il codice entrerà in un ciclo infinito, saltando tra la riga di 
codice che ha causato l'errore e il blocco di gestione degli errori. Il codice seguente tenta di attivare un 
foglio di lavoro che non esiste, questo provoca un errore, e il codice salta al blocco di gestione degli 
errori che crea il foglio, correggere il problema, e riprende l'esecuzione alla riga di codice che ha 
causato l'errore. 


On Error GoTo Err1: 

Worksheets("Foglio11").Activate 

Exit Sub 

Err1: 

If Err. Number = 9 Then ‘il foglio non esiste, quindi lo crea 
Worksheets.Add.Name = "Foglio11" 'torna alla riga di codice che ha causato il problema 
Resume 

End If 
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La seconda forma di Resume è Resume Next, che riprende l'esecuzione del codice nella riga 
immediatamente successiva alla riga che ha causato l'errore. Il seguente codice genera un errore (11 - 
divisione per zero) quando si tenta di impostare il valore di N. Il blocco di gestione degli errori assegna il 
valore 1 alla variabile N, e poi riprende l'esecuzione del codice con l'istruzione dopo l'istruzione che ha 
causato l'errore. 


On Error GoTo Err1: 
N=1/0 
Debug.Print N 
Exit Sub 
Err1: 
N=1 'torna alla riga successive che ha causato l’errore 
Resume Next 


La terza forma di Resume è Resume [etichetta] che porta l'esecuzione del codice a riprendere in 
un'etichetta di riga, questo permette di saltare una sezione di codice se si verifica un errore. Per 
esempio: 


On Error GoTo Err1l: 
N=1/0 
'codice che viene saltato se si verifica un errore 
Label1: 
‘codice da eseguire 
Exit Sub 
Errl: 
‘ritorna alla linea Label1 
Resume Label1: 


Ogni procedura non deve necessariamente avere un codice di gestione degli errori quando si verifica 
un errore, VBA utilizza l'ultima istruzione On Error per dirigere l'esecuzione del codice, tuttavia, se la 
procedura in cui si verifica l'errore non ha un gestore degli errori, VBA guarda indietro attraverso le 
chiamate di procedura che portano al codice errato. Ad esempio, se la procedura A chiama Be B 
chiama C, e A è l'unica procedura con un gestore degli errori, se si verifica un errore nella procedura C, 
l'esecuzione di codice viene immediatamente trasferito al gestore di errore nella procedura A, saltando 
il codice rimanente in B. 
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38. Introduzione alle UserForm 


Finora abbiamo visto come utilizzare delle finestre di dialogo che VBA mette a disposizione tramite le 
funzioni MsgBox e InputBox, sebbene queste funzioni possano garantire ad un programma un'ottima 
funzionalità il loro utilizzo è abbastanza limitato. Durante lo sviluppo di programmi più complessi è 
indispensabile usare finestre di dialogo, che permettano all'utente di selezionare più opzioni, scegliere 
elementi da una lista o digitare valori diversi, in pratica per incrementare la funzionalità del programma 
è necessario utilizzare finestre di dialogo personalizzate che ci permettano di velocizzare le nostre 
procedure, in questo contesto VBA ci mette a disposizione l'oggetto Userform(Finestre Utente) che ci 
permette la creazione e la manipolazione di finestre di dialogo personalizzate all’interno di programmi 
o procedure. 


Utilizzando le Userform, è possibile costruire finestre personalizzate per visualizzare dati, o richiedere 
all'utente la digitazione di valori, utilizzando la logica che abbiamo impostato per la corretta esecuzione 
del programma, per esempio possiamo mostrare una finestra di dialogo, che mette a disposizione una 
serie di formati data, obbligando l'utente alla scelta di un solo formato tra quelli mostrati. 


In sostanza le finestre di dialogo permettono al programma di interagire con l'utente in modo più 
“sofisticato” e forniscono uno strumento versatile per svolgere le normali funzioni di Input e Output. 
L'oggetto Userform è una finestra di dialogo vuota e contiene una barra del titolo e un pulsante di 
chiusura, aggiungendo controlli a un oggetto di tipo Userform è possibile personalizzare l'aspetto e la 
funzionalità della finestra di dialogo. Ogni oggetto Userform possiede proprietà, metodi e risponde 

ad eventi, tutti ereditati dall'oggetto Userform, inoltre ogni oggetto Userform incorpora un modulo nel 
quale l'utente può aggiungere i propri metodi e proprietà e nel quale può scrivere il codice che 
risponde ad eventi della finestra. 


Cosa significa questo? Significa che possiamo definire evento qualsiasi cosa si verifichi all’interno della 
finestra di dialogo o in un suo controllo, tipici esempi di evento sono la pressione di un pulsante di 
comando o la selezione di una casella di controllo. Altri eventi possono includere la modifica di una 
casella di testo o la selezione di una lista, i clic del mouse, la pressione dei tasti e altre azioni interne 
attivano gli eventi. Gli oggetti utilizzati (finestre e controlli) rendono disponibile una serie di eventi, è 
quindi possibile scrivere procedure VBA che rispondono a questi eventi. Queste procedure vengono 
denominate “Procedure di evento” come per esempio la pressione di un pulsante di comando, la 
procedura di evento contiene tutte (e solo) le azioni da eseguire in relazione all'evento, altro esempio 
può essere la chiusura di una finestra tramite il pulsante di chiusura la procedura di evento viene 
eseguita in aggiunta all’azione causata dall'evento (in questo caso la chiusura della finestra di dialogo) 


38.1 Come creare una userform 


Per inserire in un file di Excel una Userform la procedura è abbastanza semplice, entriamo nell’editor 
del VBA (premiamo i tasti ALT+F11) e nella finestra del progetto vediamo il file xls con l'elenco dei fogli 
presenti al suo interno. Per creare una Userform seguiamo questo percorso Inserisci - Userform e di 
seguito ci compare una finestra come questa 


226 


Microsoft® 


for Applications 


El File Modifica Visualizza Inserisci Formato Debug Esequi Strumenti Aggiunte Finestra 


Progetto - YBAProject 


Controlli | 

A A al EEE 
CAMS 
a sara 


Nella finestra del codice è comparsa una UserForm vuota e a sinistra vediamo un box 

denominato Casella degli strumenti che ci permette di inserire i vari controlli all’interno della Userform. 
La Userform ora è creata, possiamo modificarne le dimensioni a piacere, basta posizionarsi in un 
angolo (inferiore destro) e trascinare il mouse tenendo premuto il tasto sinistro e rilasciarlo quando 
abbiamo raggiunto le dimensioni desiderate. 


VBA per default assegna il nome Userform seguito da un numero di indice, ma possiamo modificarne il 
nome anche per sapere a prima vista il compito assegnato alla Userform. Dalla finestra delle proprietà 
modifichiamo il nome in Anagrafica, facendo clic nella casella a fianco del campo (Name), cancelliamo il 
nome attualmente presente (Userform1) e inseriamo il nuovo. 


Progetto - YBAProject 


na 


+ &8 EuroTool (EUROTOOL.XLA) 
- & YBAProject (Cartell) 
=)_@3 Microsoft Excel Oggetti 
68) Foglio1 (Foglio1) 
#8) Foglio2 (Foglio2) 
#8) Foglio3 (Foglio3) 
4) ThisWorkbook 


Proprietà - Anagrafica 


Anagrafica UserForm 


Anagrafica 

DU) &H8000000F8 

HE 24300000128 | 
0 - fmBorderStyleNone 
UserFormi | 
0-fmCycleAliForms | 


Ora vediamo che nella finestra dei progetti la UserForm ha cambiato nome, ma il titolo della UserForm 
è rimasto inalterato, presenta ancora il nome Userform1. Per modificare il titolo sulla barra della 
Userform dobbiamo modificare il valore presente nel campo caption nella finestra delle proprietà, se 
modifichiamo il nome in Gestione anagrafica anche la barra della Userform assume questo titolo 


227 


Microsoft” 


for Applications 


Progetto - YBAProject 


Gestione AMagrafica 


(+. &è EuroTool {(FUROTOOL.XLA) 
=} 2É vBAProject (Cartel1) 
=]. Microsoft Excel Oggetti 
EB) Foglio1 {Foglio1} 


EB) Foglio3 (Foglio3) 

#) ThisWorkbook 
=). 9 Form 

Anagrafica 


Proprietà - Anagrafica 


Anagrafica UserForm 
Alfabetico | per categoria | 


Anagrafica 
[U] &H800000oe8 
E 3300000128 


Gestione Anagrafica | 
0-fmCycleallForms | 


Una Userform ha i suoi eventi, proprio come una cartella di lavoro o un foglio di lavoro ed essendo 
diversi, per il momento ci fermeremo a quelli più usati che sono: Activate — Click — DbIClick — Deactivate 
— Initialize — Terminate. Per aggiungere eventi, dobbiamo fare doppio clic sulla finestra UserForm: 


[UserForm ” | [Click ” | 


Private Sub UserForm Click() 


End Sub 


Possiamo usare un evento per fissare le dimensioni della Userform, utilizzando l'evento 
Userform_Initialize che scatterà quando la form viene caricata in memoria. Questo evento può essere 
causato dall’istruzione Load o dal metodo Show, si utilizza questo evento per impostare l'aspetto 
iniziale della finestra. Per raggiungere l'evento selezioniamo il box a destra della figura sopra indicato 
dalla freccia rossa e nell’elenco a discesa scegliamo l'evento Initialize e inseriamo questo codice 


Private Sub UserForm_Initialize () 
Anagrafica.Height = 100 
Anagrafica.Width = 100 

End Sub 


Avrete notato che per agire sulla Userfom viene inserito il nome della stessa (Anagrafica) seguito dalla 
parola chiave Heigth (altezza) separate da un punto e con l'operatore uguale abbiamo fissato il valore a 
100, la stessa operazione viene ripetuta per la larghezza con la parola chiave Width (larghezza). Se 
eseguiamo questa macro la Userform prenderà le dimensioni impostate, cioè sarà larga 100 pixel e alta 
di 100 pixel. Possiamo sfruttare un altro evento per modificare le dimensioni ogni volta che l'utente 
clicca sulla form aumentandole di 50 pixel ad ogni clic, inserendo questo codice 

nell'evento Userform_Click 


Private Sub UserForm__Click () 
Anagrafica.Height = Anagrafica.Height + 50 
Anagrafica.Width = anagrafica.Width + 50 
End Sub 
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Sempre con lo stesso metodo che abbiamo appena visto, abbiamo inserito il nome della form seguita 
dal punto e dalle istruzioni Height e Width e con le assegnazioni che abbiamo visto per le variabili è 
stato assegnato un valore di 50 pixel preceduto dall'operatore più (+). Un altro evento che dobbiamo 
prendere in considerazione è l'evento Activate che viene scatenato ogni volta che la form diventa attiva 
(cioè passa in primo piano). Si utilizza questo evento per aggiornare il contenuto dei controlli, in modo 
da riflettere i cambiamenti che possono essere avvenuti mentre la finestra non era attiva. Possiamo 
usare questo evento per preparare i vari controlli a ricevere i dati dell'utente, per esempio se siamo in 
presenza di un TextBox(casella di testo) o vari OptionButton(pulsante di selezione) possiamo fare in 
modo che quando viene attivata la form il focus (corrisponde ad avere il campo selezionato e pronto a 
ricevere il testo) sia già sul Textbox oppure di avere un Optionbox già selezionato. Vediamolo con un 
esempio 


Private Sub UserForm_Activate() 
TextBox1.SetFocus 
OptionButton1.value=True 

End Sub 


Il metodo più semplice per controllare un oggetto Userform è utilizzando i Metodi e le Proprietà 
predefinite della classe Userform e scrivere le procedure evento per la gestione della finestra e dei 
controlli in essa contenuti, i metodi più comuni da utilizzare 
sono: Copy — Cut — Hide — Paste — PrintForm — Repaint — Show 


SG VBAProject (Vba#14.xisx) Hide : Nasconde la finestra di dialogo (la Userform) senza 
ana «alito vig liberare la memoria associata all'oggetto, vengono così 
$) Questa_cartella.di_ lavoro mantenuti i valori nei vari controlli contenuti in essa 
D)}-@3 Form Show : Rende visibile la finestra sullo schermo, se la finestra 
UserFormi non è caricata in memoria, viene effettuato il caricamento. 
&3 Moduli 


«È? Modulo1 


Inoltre VBA fornisce due comandi che sono molto utili 
quando usiamo l'oggetto Userform, i comandi 

sono Load e Unload, questi comandi possono essere utilizzati per caricare l'oggetto in memoria e per 
liberare la memoria se occupata dall'oggetto. La sintassi per questi comandi è la seguente: 


Load Oggetto e Unload Oggetto 


In questo enunciato Oggetto rappresenta un riferimento valido ad un oggetto di tipo Userform, con il 
comando Load carichiamo l'oggetto in memoria, ma non lo rende visibile sullo schermo, e con il 
comando Unload lo scarichiamo dalla memoria. Abbiamo appena detto che con Load carichiamo 
l'oggetto in memoria, ma non lo portiamo a video, inneschiamo solo l'evento Initialize della Userform 
ma per poter vedere l'oggetto sullo schermo dobbiamo usare il comando Show, l’enunciato è il 
seguente: Anagrafica.Show 


Pertanto se vogliamo far comparire una finestra di dialogo a video dovremmo lanciare il 

comando Show, ma come facciamo? Una volta creata la Form abbiamo a disposizione solo metodi ed 
eventi, ma tutti riferiti all'oggetto Userform, mentre a noi serve un altro procedimento che veicoli la 
nostra finestra di dialogo. Se diamo uno sguardo alla finestra dei progetti vediamo che la Form è 
presente, ma abbiamo appena detto che deve essere veicolata per poter renderla visibile. Un sistema 
per ottenere questo è di seguire questo percorso Inserisci - Modulo e nella finestra di progetto ora ci 
comparirà anche il modulo. A questo punto clicchiamo sulla voce “Modulo1” e nella finestra del codice 
digitiamo il seguente codice 
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Sub Mostra() 
Anagrafica.Show 
End Sub 


Associamo ora la nostra macro ad un pulsante sul foglio di lavoro e premendo sul pulsante comparirà a 
video la nostra Userform. Ora abbiamo creato la nostra finestra di dialogo e siamo riusciti a portarla a 
video, fatte le nostre operazioni sulla form la possiamo “chiudere” usando il comando Unload. Il 
comando Unload và messo all’interno della Userform, associato ad un pulsante di uscita dalla stessa, la 
sintassi è la seguente: Unload Me 


Vediamo ora la finestra della casella degli strumenti, noterete che l'etichetta della finestra riporta il 
nome di Controlli e sono rappresentati dalle varie icone presenti nel box, vediamo cosa rappresentano 
e come si usano, per farvi comprendere meglio quali siano i controlli li ho raggruppati in questa 
immagine con il relativo nome e una breve descrizione 


cosa] ‘comando | vali | vesciione |] 


R Consente di selezionare altri controlli 
| Svolge la funzione di etichetta descrittiva 
A Etichetta non modificabile dall'utente 
abl Casella di Testo Permette di inserire del testo liberamente 
EA | combobox cssellatonbinata Permette di inserire un valore da una lista 
co a scomparsa 
EB | Listbox case di pieni Mostra molti elementi in una lista con una 
PiiOs barra di scorrimento verticale 
PI | checkbox Gialla di contraliò Si utilizza per le opzioni che possono 
avere un valore tipo Vero/Falso 
È Satie Pulesntedi Obilania Consente all'utente di effettuare una 
P P scelta in una serie di pulsanti 
mr Mostra lo stato Vero/Falso e si presenta 
ToggleButton Pulsante Interrutore . 
a roegesuttan _ [pulsante intemstore come un interruttore On/Off 


Ersinià Contiene Raggruppa una serie di controlli con 
un'etichetta descrittiva 

CommanButton | Pulsante di Comando 5 Mn pubante staniGarti par':esguine 
azioni 

TabStrip ehede tabulazione che può ricevere altri 
controlli 

. ; Consiste in un'area di più pagine che può 

Multipage Pagine ; ; 

contenere altri controlli 


ScrollBar Barra di Scorrimento | Permette di scorrere un insieme di dati 
SpinButton Casella di Selezione PApucalara casslla di a CHO pemade 
l'inserimento facilitato dei dati 
linaga immagina Permette di inserire un'immagine 
si ti all'interno di una finestra 
Rafedit Casella Speciale E' una casella di testo speciale che 
consente di selezionare intervalli di celle 
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39. Icontrolli in una UserForm 


Un oggetto Userform può contenere controlli come possiamo vedere nelle finestre di dialogo 
normalmente mostrate da Excel o altri programmi. | controlli sono gli elementi di una finestra che 
consentono all'utente di interagire con il programma. Nella lezione precedente abbiamo fatto una 
panoramica su questo argomento, adesso vediamo di approfondire elencando i vari controlli disponibili 
in maniera più dettagliata. | controlli disponibili in VBA sono: 


Label : Corrisponde a Etichetta, inserisce un oggetto di tipo label e svolge la funzione di etichetta 
descrittiva per quei controlli che non ne hanno una propria. E’ inoltre possibile utilizzare le etichette 
per mostrare il valore di una variabile. Si può modificare il testo mostrato di una etichetta (label1 nel 
nostro caso) modificando la proprietà Captino, questo è possibile via codice oppure agendo nella 
finestra delle proprietà, generalmente questo oggetto viene usato nei casi in cui non si debba 
modificarne il testo, ma semplicemente come elemento descrittivo di un altro controllo 


Casella di testo : Inserisce un oggetto di tipo Textbox, questo oggetto permette l'inserimento di testo 
da parte dell'utente, viene utilizzato per ogni tipo di campo che può essere rappresentato come testo, 
nomi, date, numeri valute e inoltre può accettare e mostrare più righe di testo, infatti quando 
necessario compare una barra di scorrimento verticale che permette di scorrere il testo contenuto 


Cornice : Inserisce un oggetto di tipo Frame, questo oggetto non ha nessuna funzione specifica, se non 
quella di raggruppare logicamente un insieme di controlli. Si utilizza solitamente per raggruppare 
pulsanti di opzione, caselle di controllo e pulsanti interruttore. Usate questo controllo quando volete 
far risaltare all'utente che i controlli contenuti nella cornice sono in qualche modo collegati tra loro 


Pulsante di comando : Inserisce un oggetto di tipo CommandButton, il classico pulsante di standard di 
Windows che si attiva quando l’utente fa clic su di esso. L'azione svolta al clic sul controllo dipende dal 
codice che viene messo nell'evento, può compiere operazioni di chiusura (Close) di 

nascondimento (Hide) , di aggiornamento dei dati, di verifica e così via 


Casella di Controllo : Inserisce un oggetto di tipo CheckBox, è composto da un quadrato che contiene 
un segno di spunta nel caso in cui sia selezionato e da un'etichetta di descrizione. Utilizzate questo 
controllo per le opzioni che possono avere un valore di tipo Vero o Falso. Può restituire valori True 
(Vero), quando la casella è selezionata o False (Falso), se la casella non è selezionata, inoltre la 
presenza di più caselle di controllo non si escludono a vicenda 


Pulsante di opzione : Inserisce un oggetto di tipo OptionButton, è composto da un pulsante tondo che 
contiene una pallina nera nel caso sia selezionato e da un'etichetta di descrizione. Viene usato con una 
serie di pulsanti di opzione per consentire all'utente una selezione di elementi che si escludono a 
vicenda 


Pulsante Interruttore : Inserisce un oggetto di tipo ToggleButton, mostra lo stato del pulsante Vero o 
Falso, Acceso o Spento, allo stesso modo di una casella di controllo solo che ha l'aspetto di un pulsante 
in posizione “Su” o “Giù” 


Casella di riepilogo : Inserisce un oggetto di tipo ListBox e mostra una serie di dati presenti nel foglio in 


cui l'utente può fare una scelta, inoltre la proprietà MultiSelect controlla la possibilità di effettuare la 
scelta di un solo valore o di più elementi della lista 
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Casella combinata : Inserisce un oggetto di tipo ComboBox, questo controllo è la combinazione grafica 
di una casella di testo (TextBox) e di una casella di riepilogo (ListBox) la casella di testo permette la 
digitazione di dati con la possibilità di suggerire una serie di valori tra cui scegliere attraverso la lista a 
discesa. Tramite questo controllo è possibile consentire all'utente di inserire un valore non presente 
nella lista, oppure costringerlo a scegliere un valore tra quelli presenti nella lista. Per poter effettuare 
questa impostazione bisogna modificare la proprietà Style nella finestra delle proprietà 


Schede : Inserisce un oggetto di tipo TabStrip, questo controllo consiste in una singola area in cui è 
possibile inserire altri controlli, è costituito da una serie (modificabile a piacere) di pulsanti di 
tabulazione. Questo controllo è simile all'oggetto cornice, in quanto l’area non cambia, ma tramite i 
pulsanti di tabulazione è possibile mostrare dati di diverse categorie. Per esempio in un’anagrafica di 
un cliente è possibile avere un tabulatore in cui compaiono i dati generali (indirizzo, telefono etc.) un 
altro tabulatore mostrerà i dati bancari e così via 


Pagine : Inserisce un oggetto di tipo MultiPage, questo controllo è simile al controllo Schede (TabStrip) 
inoltre ogni pagina di questo controllo può contenere diversi controlli distinti. E’ da utilizzare quando 
ogni pagina deve avere un contenuto differente 


Barra di scorrimento : Inserisce un oggetto di tipo ScrollBar e permette di scorrere i valori contenuti in 
una finestra 


Casella di selezione : Inserisce un oggetto di tipo SpinButton, è una particolare categoria di casella di 
testo che permette l'inserimento facilitato e la modifica di dati compresi in un certo intervallo. Viene 
utilizzato per l’inserimento di valori numerici, date o valori in sequenza e si utilizza insieme ad un 
controllo etichetta(Label) o casella di testo (TextBox). In pratica facendo clic sulla freccia “su” o “giù” il 
valore viene incrementato o diminuito 


Immagine : Inserisce un oggetto di tipo Image, e permette di inserire un'immagine all’interno della 
finestra in uno dei seguenti formati *.bmp, *.cur, *.jpeg, *.gif, *.ico 


RefEdit : Inserisce un oggetto di tipo RefEdit, questa è una speciale casella di testo che consente di 
inserire e selezionare intervalli sui fogli di lavoro di Excel 


Ogni controllo è un oggetto con proprietà, metodi ed eventi specifici esattamente come le finestre 
(Userform) che li contiene, è possibile impostare le proprietà dei controlli via codice oppure utilizzando 
la finestra Proprietà dell’editor di Visual Basic. Una volta aggiunto un controllo alla finestra, potete 
effettuare una serie di operazioni come: copiare l’oggetto, ridimensionarlo, spostarlo, cancellarlo, 
modificarne la formattazione, il tipo di carattere, il colore e modificare tutte le sue proprietà. Avrete 
sicuramente la necessità di fare queste operazioni nel momento in cui perfezionerete la vostra tecnica 
di programmazione delle finestre di dialogo. Per esempio potete decidere che una casella di testo è 
troppo ampia o troppo stretta per il testo a cui è destinata, così ne modificherete le dimensioni. 
Oppure un pulsante di comando con la scritta CommandButton7 avrebbe un significato a dir poco 
“oscuro” per l'utente che userà la vostra finestra di dialogo. 


Per poter inserire un controllo nella nostra Userform dovete fare clic sul pulsante della Casella degli 
strumenti corrispondente al controllo che volete aggiungere nella finestra, in questo modo il puntatore 
del mouse si trasforma in una croce sottile quando viene posizionato sulla Userform. Posizionate il 
puntatore a croce sulla finestra nel punto in cui volete inserire il controllo, tenete presente che il punto 
che scegliete corrisponderà all'angolo superiore sinistro. Fate clic e tenete 
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premuto il pulsante sinistro del mouse, Trascinate ora a destra e in basso fino a che il controllo non 
raggiunge le dimensioni desiderate, quindi rilasciate il pulsante, a questo punto l'editor di Visual basic 
inserisce il controllo e il puntatore del mouse ritorna ad essere la freccia standard. 

Se proviamo ad inserire una casella di testo (TextBox), con le istruzioni sopra riportate ci comparirà una 
finestra come quella sotto riportata 


fi] Avrete notato che il controllo è circoscritto da dei 
piccoli quadratini bianchi che ci permettono di 
ridimensionare il controllo stesso, posizionandoci 
col cursore del mouse su uno di essi il puntatore si 
trasforma in una doppia freccia, che indica la 
direzione nella quale è possibili ridimensionare 
l'oggetto. Inoltre posizionandoci sopra al controllo 
il cursore cambia aspetto e diventa a 4 frecce, in 
questa condizione è possibile spostare il controllo 
nella posizione voluta. Ricordate anche che ogni 
controllo aggiunto alla finestra di dialogo deve 
avere un nome univoco, a questo pensa già l'editor 
di VBA, se inseriamo un 

controllo CommandButtons gli viene assegnato automaticamente il nome del controllo seguito da un 
numero [es. CommandButtons1] questo numero progressivo viene incrementato automaticamente 
dall’editor ogni volta che si inserisce un controllo dello stesso tipo. 


39.1 Modificare i controlli 


Una volta che avete aggiunto un controllo alla finestra potete effettuare una serie di operazioni come: 
copiare l'oggetto, ridimensionarlo, spostarlo, cancellarlo, modificarne la formattazione etc. Avrete 
sicuramente la necessità di compiere queste operazioni nel momento in cui perfezionerete la vostra 
tecnica di progettazione delle finestre di dialogo. Per esempio potete decidere che una casella di testo 
è troppo grande o troppo stretta per il testo che è destinata a ricevere, così necessita di una modifica 
delle dimensioni, oppure inserire un controllo CommandButon5 avrebbe un significato oscuro per 
l'utente che userà il programma. 


sioni Ea Per modificare un controllo occorre prima 
selezionarlo facendo clic sopra al controllo stesso 
e per modificarlo dobbiamo ricorrere alla finestra 
delle proprietà. Inseriamo ora per esempio 3 
controlli, un CommandButton, una TextBox e una 
Label nella nostra form che adesso si presenta 
come in figura a lato 


Presentare una Userform in questo modo non è certamente accattivante, dobbiamo cercare di dare 
una indicazione visiva all'utente sullo scopo della Userform. Iniziamo modificando i 3 controlli inseriti, 
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trascinandoli nella posizione giusta e utilizzando la finestra delle proprietà per modificare il 

valore caption, modifichiamo anche il titolo della form inserendo la dicitura “Esempio di inserimento”, 
come etichetta della Label usiamo “Inserisci un valore numerico” e il pulsante di comando diventa 
“Verifica”. Come già detto tutte queste modifiche le effettuiamo selezionando il controllo e andando a 
modificare il valore del campo Caption, come evidenziato dalla freccia rossa nella figura sotto esposta 


Una volta terminata la modifica dei vari controlli e 
ridimensionata la finestra, otteniamo una form come la 
seguente 


Possiamo ipotizzare che questa finestra attenda l'inserimento di un valore nella TextBox e al tempo 
stesso verifichi che sia stato inserito un valore numerico prima di salvarlo in una cella del foglio di 
lavoro. In questi casi è sempre opportuno fare la verifica del testo inserito per evitare ulteriori errori di 
runtime nel proseguo del programma. E’ possibile fare verifiche del genere in due modi, uno sfruttando 
l'evento Change della TextBox e l’altro con opportuno codice quando clicchiamo sul pulsante di verifica 
prima di eseguire il salvataggio. Vediamo entrambi i metodi, prima però aggiungiamo un’altra Label alla 
nostra form che ci torna utile per rimandare un avviso in caso di 
errore. La possiamo inserire in questo modo 


Proprietà - Label2 x| 


Come potete vedere è stato cambiato anche il colore del testo 
agendo sul campo ForeColor della finestra delle proprietà come si 
vede in figura a lato. 


A questo punto dobbiamo inserire il codice adatto nell'evento 
Change e per raggiungere questo evento facciamo doppio clic sulla 
TextBox e nella finestra del codice ci compare 

l'evento TextBox1_Change(). Abbiamo già detto che questo evento 
si scatena quando sente un cambiamento all’interno del campo 
stesso, per cui se inseriamo un codice come il seguente 


Private Sub Textbox1_Changel() 

If IsNumeric(Textbox1.Value) Then 

Label2.Visible = False 

Else 

Label2.Visible = True 

TextBox1.Value=”” 

End If 
End Sub 
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Se inseriamo un valore numerico la Label2 NON diventa visibile, mentre in caso di valore NON 
Numerico la Label2 diventa visibile e la routine termina cancellando il valore nella TextBox. Se 
eseguiamo questa routine ci viene riportata la form in questo modo 


La Label2 è visibile, mentre vogliamo che diventi visibile in 
caso di errore nell'inserimento del tipo di dato richiesto. La 


Non hai inserito un valore numerico 


Inserire un valore |] Label2 è visibile in quanto non abbiamo inizializzato la form, 
nella lezione precedente abbiamo visto gli eventi 
Verifica Initialize e Activate delle Userform, nel nostro caso 


utilizziamo l'evento Initialize per nascondere la Label2 e farla 
poi apparire in caso di errore 


tramite il ciclo If presente nell'evento Change della TextBox, pertanto andremo ad aggiungere questo 
codice 


Private Sub UserForm_Initialize() 
Label2.Visible = False 
End Sub 


In questo modo la finestra di dialogo ci compare in questo 
modo 


A questo punto se inseriamo un valore di tipo stringa nel 
campo della TextBox ci viene mostrata la Label di avviso errore 
di inserimento 


Non hai inserito un valore numerico 
Inserire un valore 


| sal Per mostrare la Label2 e il testo inserito nel campo della 
TextBox è stata remmata (è stata resa come un commento e il 
Verifica | 


VBA salta i commenti) un'istruzione nella routine 


Private Sub Textbox1_Change() 
If IsNumeric(TextBox1.Value) Then 
Label2.Visible = False 
Else 
Label2.Visible = True 
' TextBox1.Value = """ 
End If 
End Sub 
Come vedete è stato posto un apostrofo prima dell'istruzione TextBox1.Value = "" che è quella che si 
occupa di svuotare il campo. A questo punto abbiamo visto il primo metodo di verifica dei dati, l’altro, 
come abbiamo precedentemente accennato, viene eseguito premendo il pulsante di “Verifica” prima di 
eseguire la scrittura del valore della TextBox nel foglio di lavoro. Lo possiamo fare in questo modo 
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Private Sub CommandButton1_Click() 
If IsNumeric(Textbox1.Value) Then 
Range("A1") = Textbox1.Value 

Unload Me 
Else 
MsgBox "Il Valore inserito è errato" 


End If 
End Sub 


Se eseguiamo questo codice (ovviamento dobbiamo togliere il codice nell'evento TextBox1_Change 
altrimenti scatta anche quello) in caso di inserimento di un valore stringa ci rimanda questo avviso 


a = " Ls 
Microsoft Excel lì Lino | 


| «| Mentre viene sviluppata un'applicazione in VBE (ambiente Visual 
Basic) viene definita come fase di progettazione (Design Time) il 
momento in cui si creano Form, si aggiungono controlli e si impostano 
le proprietà dei vari oggetti, mentre invece si definisce fase 


di esecuzione (Run-Time) il momento in cui il codice viene eseguito e 
l'applicazione è in esecuzione. 


Il Valore inserito è errato 


Durante il periodo di Run-Time lo sviluppatore interagisce con l'applicazione, proprio come un utente e 
il codice non può essere manipolato, mentre eventuali manipolazioni nella fase di progettazione non 
sono permanenti. Per esempio se si aggiunge un controllo CheckBox nel codice utilizzando il metodo 
Add Method [Set ctrl = Controls.Add("Forms.CheckBox.1")] il controllo apparirà una volta che si manda 
in esecuzione la UserForm, ma quando si termina l'esecuzione e si torna al VBE, l'oggetto CheckBox 
non è presente, allo stesso modo, se si imposta la Caption di un controllo OptionButton nel codice, 
viene visualizzato quando viene eseguita la UserForm, ma tornerà al suo aspetto originale quando si 
termina l'esecuzione. In sostanza la struttura ControlTipText si trova in fase di progettazione, ma è 
visibile sul controllo unicamente durante la fase di Run-Time. 
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40. Impostazione delle proprietà dei controlli 


Se il codice è in una procedura nel modulo di codice della Form, si può utilizzare la sintassi: 
Controlname.Property = Setting/Value, ma se il codice è in un modulo standard o nel modulo di codice 
di un Form diverso, la sintassi diventa: UserFormName.Controlname. Property = Setting/Value. 

Alcuni Esempi di sintassi 


Label1.Font.Name = "Arial" 
Label1.ForeColor = RGB (255, 255, 0) 
OptionButton1.BackColor = 255 
CheckBox1.Value = false 
CheckBox1.Alignment = fmAlignmentLeft 
TextBox1.MultiLine = True 
TextBox1.WordWrap = True 
TextBox1.ScrollBars = 2 
OptionButton1.AutoSize = True 
Me.TextBox1.Enabled = False 
TextBox1.TextAlign = fmTextAlignLeft 
TextBox1.Text = "Ciao" 
CommandButton1.Left = 50 
TextBox1.MaxLength = 5 


40.1 Proprietà Name 


Si può utilizzare la proprietà Name per specificare un nome per un controllo o per specificare il nome 
del font del carattere utilizzato nella parte di testo di un controllo. La proprietà Name in una Form può 
essere impostata solo in fase di progettazione e non può essere impostata in fase di esecuzione, inoltre 
per i controlli può essere impostata sia in fase di progettazione o in fase di esecuzione, ma se si 
aggiunge un controllo in fase di progettazione, il suo nome non può essere modificato in fase di 
esecuzione. In genere, il nome predefinito del primo CheckBox creato è CheckBox1, del secondo sarà 
CheckBox2, e così via, anche per gli altri controlli. 


E' possibile modificare il nome di un controllo cliccando su "Name" nella finestra delle Proprietà, 
ricordando che il nome deve iniziare con una lettera, può avere qualsiasi combinazione di lettere, 
numeri o underscore, non può avere spazi o simboli e può avere una lunghezza massima di 40 
caratteri. Potrebbe essere una buona idea utilizzare un prefisso di 3 lettere in minuscolo, per 
individuare il rispettivo controllo, e i caratteri che seguono il prefisso possono essere caratteristici per 
una più facile leggibilità. 


40.2 La Proprietà Caption 


Caption è il testo che descrive e identifica una Form o un controllo e verrà visualizzato nell'intestazione 
della Form, o di qualsiasi altro controllo, e può essere impostata nella finestra Proprietà o con il codice 
usando questa Sintassi. object.Caption = String 
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40.3 Le Proprietà Height e Width 


L'altezza e la larghezza viene misurata in punti e queste proprietà sono applicabili sia a un oggetto 
Form che a tutti i controlli disponibili. È possibile inserire manualmente l'altezza e la larghezza nella 
finestra Proprietà, e per queste proprietà, VBA accetta solo valori che sono maggiori o uguali a zero, e 
possono essere impostate nella finestra Proprietà o con il codice VBA con la sintassi 

object.Height = Number Object.Width = Number. 


È inoltre possibile ridimensionare un controllo manualmente con il mouse, quando viene selezionato il 
puntatore del mouse cambierà aspetto presentandosi come una freccia a due punte e il controllo 
mostrerà le maniglie di regolazione che sono situate negli angoli e a metà del controllo stesso e 
posizionando il cursore su una qualsiasi di queste maniglie e cliccando su di essa si possono modificare 
le dimensioni del controllo trascinando il cursore per portarlo alla dimensione desiderata, che una volta 
raggiunta si rilascia il pulsante del mouse 


40.4 Le Proprietà Left e Top 


La proprietà Left imposta la distanza tra il bordo sinistro del controllo e il bordo sinistro della Form che 
lo contiene, mentre invece la proprietà Top imposta la distanza tra il bordo superiore del controllo e il 
bordo superiore della Form e per entrambi i controlli la distanza è impostata in pixel, inoltre è possibile 
inserire manualmente le proprietà Left e Top nella finestra Proprietà tenendo presente che queste 
proprietà sono applicabili a tutti i controlli. Se il valore di Left o Top è impostato a zero, il controllo 
apparirà sul bordo sinistro o il bordo superiore della Form che lo contiene, e specificando un valore 
minore di zero in una di queste proprietà verrà tagliata una porzione del controllo riducendone la 
visibilità nel modulo. Queste proprietà possono essere impostate con il codice VBA con questa 
Sintassi. object.Left = Number object.Top = Number . 


40.5 La Proprietà Accelerator 


Questa proprietà è applicabile ai controlli Label, CheckBox, OptionButton, ToggleButton, 
CommandButton e Multipage, imposta la chiave per accedere a un controllo, ed è indicato come la 
chiave di accesso (0 tasto di scelta rapido) che è costituita da un singolo carattere, che premuto in 
combinazione con e dopo il tasto Alt è usato come scorciatoia e se usato per un controllo avvia 
l'evento Click. 


Per fare clic su un pulsante di comando in una Form, il tasto di scelta rapida può essere impostato 
come lettera "E" e premendo Alt + E si avvia l'evento click. Nel caso in cui Accelerator è impostato per 
una Label, il controllo successivo che segue la Label nell'ordine di tabulazione riceve il Focus (ma non 
l'esecuzione dell’evento Click). Inoltre si tenga presente che Il carattere utilizzato come valore 
Accelerator è key-sensitive, il che significa che l'impostazione della chiave avviene come 

lettera P equivale anche alla lettera p perché vengono inserite premendo lo stesso tasto. 


40.6 La Proprietà BackColor 


Questa Proprietà si applica a tutti i controlli e Form ed imposta il colore di sfondo. Per il controllo 
Multipage la proprietà può essere impostata solo con il codice VBA 
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40.7 La Proprietà Value 


Questa proprietà determina lo stato di selezione di un controllo o specifica il contenuto dello stesso ed 
è applicabile a tutti i controlli tranne Label, Frame e Image. Per quanto riguarda i controlli CheckBox, 
OptionButton e ToggleButton, impostando un valore di -1 (True), indica che il controllo è selezionato, 
un valore 0 (False), indica che il controllo è deselezionato e un valore Null indica che il controllo non è 
né selezionato né cancellato, e in questo caso apparirà ombreggiato. 


Per i controlli ScrollBar e SpinButton, la proprietà Value indica il loro valore attuale, che è un numero 
intero compreso tra il valore minimo e massimo specificati nelle proprietà Max e Min. Per i controlli 
ComboBox e ListBox (Value non può essere utilizzato con un ListBox a selezione multipla), rappresenta 
il valore della cella attualmente selezionata, mentre per un controllo CommandButton, equivale a un 
valore booleano (True o False) che indica se è stato scelto il comando e l'impostazione predefinita è 
False e se è impostato a True (solo con il codice VBA) richiamerà l'evento Click del pulsante. 


Per un controllo Multipage, la proprietà Value è impostata solo con il codice VBA ed è rappresentata da 
un numero Intero che indica se la pagina corrente è attiva, ricordando che le pagine sono numerate a 
partire da zero (0). Per un controllo TextBox, si riferisce al testo nella casella di testo e la proprietà 
Value può essere impostata nella finestra Proprietà (eccezione per CommandButton e Multipage) o 
con il codice VBA. Sintassi Object.Value = Variant 


40.8 La Proprietà Alignment 


Questa proprietà è applicabile ai controlli CheckBox, OptionButton e ToggleButton e specifica come 
una Caption apparirà rispetto al controllo. Ci sono due impostazioni: 


v. fmaAlignmentLeft (valore 0) — La Caption appare a sinistra del controllo 
v. fmAlignmentRight (valore 1) - Questa è l'impostazione di default in cui la Caption viene 
visualizzata a destra del controllo. 


Si tenga presente che il controllo ToggleButton ha Alignment come una delle sue proprietà, ma è 
disabilitato e non può essere specificato per questo controllo e Il testo della Caption è sempre allineato 
a sinistra. 


40.9 La Proprietà BackStyle 


BacksStyle è applicabile ai controlli Label, TextBox, ComboBox, CheckBox, OptionButton, ToggleButton, 
CommandButton, Image e RafEdit e determina se lo sfondo dei controlli sarà opaco o trasparente. Ha 
due impostazioni: 


v. fmBackStyleTransparent (valore 0) per sfondo trasparente, in cui tutto lo sfondo del controllo è 
visibile 
v fmBackStyleOpaque (valore 1) per lo fondo opaco, in cui nulla è visibile sullo sfondo del 


controllo e questo è anche il default. 


Se la proprietà BackStyle è impostato su fmBackStyleOpaque la Proprietà BackColor non avrà nessun 
effetto. 
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40.10 La Proprietà AutoSize 


Questa proprietà è applicabile ai controlli Label, TextBox, ComboBox, CheckBox, OptionButton, 
ToggleButton, CommandButton, Image e RafEdit ed è rappresentata da un valore booleano (True o 
False) che specifica se il contenuto da visualizzare del controllo viene ridimensionato automaticamente 
oppure no. Se AutoSize viene posta a TRUE, si ridimensiona automaticamente il controllo, mentre 
impostandola a FALSE (opzione predefinita) mantiene la dimensione del controllo e se il contenuto 
supera l'area del controllo viene tagliato. Per i controlli TextBox e ComboBox, 

AutoSize si applica al testo visualizzato, mentre per il controllo Image, AutoSize vale per l'immagine 
visualizzata, per altri controlli si applica alla Caption, mentre per il controllo TextBox sono: 


v_ Se il TextBox è a linea singola, AutoSize ridimensiona la larghezza del TextBox alla lunghezza del 
testo 

v_ Se il TextBox è MultiLinea, senza testo, AutoSize ridimensiona la larghezza per visualizzare una 
singola lettera e ridimensiona l'altezza per visualizzare l'intero testo 

v__ Se la TextBox è MultiLine con il testo, AutoSize non cambia la larghezza del TextBox e 
ridimensiona l'altezza per visualizzare l'intero testo. 


40.11 La Proprietà BorderColor 


Questa proprietà è applicabile alle Form e ai controlli Label, TextBox, ComboBaox, ListBox, Frame, Image 
e RafEdit e imposta il colore del bordo. 

Se nella proprietà BorderStyle si imposta il valore fmBorderStyleNone, questa proprietà non avrà alcun 
effetto, in quanto la proprietà BorderStyle definisce i colori del bordo utilizzando la proprietà 
BorderColor , mentre la struttura SpecialEffect utilizza esclusivamente colori di sistema (che fanno 
parte del Pannello di controllo di Windows) per definire i colori del bordo. 


40.12 La Proprietà BorderStyle 


Questa proprietà è applicabile alle Form e controlli Label, TextBox, ComboBox, ListBox, Frame, Image e 
Rafedit e specifica il tipo di bordo per un oggetto (controllo o Form). Ha due impostazioni: 


v. fmBorderStyleNone (valore 0) per nessun bordo 
v. fmBorderStyleSingle (valore 1) per un bordo a linea singola. 


Da ricordare che Form, Label, TextBox, ComboBox, ListBox e Frame hanno il valore di default pari a 0, 
mentre il valore predefinito per un'immagine è 1. BorderStyle definisce i colori dei bordi con la 
proprietà BorderColor e non è possibile utilizzare contemporaneamente BorderStyle e SpecialEffect per 
specificare il bordo di un controllo, inoltre se la proprietà Specia/Effect per un Frame è impostata a 
zero, la proprietà BorderStyle viene ignorata. 


40.13 La Proprietà ControlTipText 


E’ applicabile a tutti i controlli e specifica il testo visualizzato quando l'utente posiziona il mouse su un 
controllo. E utile nel dare consigli o chiarimenti per l'utente sull'utilizzo del controllo. Il valore 
predefinito è una stringa vuota che indica che non verrà visualizzato alcun testo. 
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40.14 La Proprietà ControlSource 


Questa proprietà è applicabile ai controlli TextBox, ComboBox, ListBox, CheckBox, OptionButton, 
ToggleButton, ScrollBar e SpinButton e corrisponde a una cella o un campo (intervallo di celle) che 
viene utilizzato per impostare o conservare la proprietà Value di un controllo. Cambiando il valore del 
controllo si aggiorna automaticamente la cella collegata e un cambiamento nella cella collegata 
aggiornerà il valore del controllo. Se nella cella A1 viene inserita la proprietà ControlSource di un 
CheckBox, e se la cella A1 in ActiveSheet contiene TRUE, il CheckBox apparirà selezionato all'attivazione 
del modulo e se si deseleziona l'opzione, la cella A1 cambierà il suo contenuto in FALSE. 


In una ListBox in cui il ControlSource menziona Foglio1! D2, il valore nella BoundColumn della riga 
selezionata vengono memorizzati nella cella D2 del Foglio1, mentre invece in una TextBox in cui il 
ControlSource menziona Foglio3! F2, il testo o il valore nella TextBox vengono memorizzati nella cella 
F2 del Foglio3 e se la cella F2 non contiene nessun testo, questo apparirà nella TextBox all'attivazione 
della Form. Il valore predefinito è una stringa vuota che indica che la proprietà Contro/Source non è 
stata impostata. 


40.15 La Proprietà Enabled 


Questa Proprietà si applica a tutti i controlli e Form e rappresenta un valore booleano (True o False) 
che specifica se il controllo è attivo e può rispondere a eventi generati dall'utente, (cioè l'utente può 
interagire con il controllo tramite mouse, i tasti o tasti di scelta rapida). Il valore predefinito è True, che 
indica che il controllo è attivo, mentre un valore False indica che l'utente non può interagire con il 
controllo. 


Il controllo è generalmente accessibile tramite un codice anche nel caso il valore sia impostato su False. 
Se Enabled è impostato su False, il controllo è inattivo (tranne che per le immagini), mentre se Enabled 
è impostata su false per un Formo un Frame, tutti i controlli che contengono sono disabilitato. La 
proprietà Enabled di una TextBox è particolarmente utile quando non si desidera consentire all'utente 
di digitare direttamente nella casella di testo, ma deve essere riempito solo tramite la selezione 
effettuata dall'utente in altro controllo, ad esempio da un ListBox. 


40.16 La Proprietà Locked 


Questa proprietà è applicabile ai controlli TextBox, ComboBox, ListBox, CheckBox, OptionButton, 
ToggleButton, CommandButton e RafEdit e rappresenta un valore booleano (True o False) che 
specificare se il controllo è modificabile o meno. Il valore TRUE indica che non è modificabile, mentre il 
valore predefinito è False in cui il controllo può essere modificato. Alcuni esempi di utilizzo delle 
proprietà Enabled e Locked in combinazione: 


v Se Enabled è True e Locked è False: il controllo risponde agli eventi generati dall'utente e appare 
normalmente, i dati possono essere copiati e modificati nel controllo. 

v. Se Enabled è True e Locked è True, il controllo risponde agli eventi generati dall'utente e appare 
normalmente, i dati possono essere copiati, ma non modificati nel controllo. 

v Se Enabled è False (indipendentemente dal valore di Locked), il controllo non può rispondere a 
eventi generati dall'utente e viene visualizzato in grigio, i dati non possono essere né copiati né 
modificati nel controllo. 
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40.17 L’Oggetto Font 


Questa proprietà si applica a Form e a tutti i controlli tranne ScrollBar, SpinButton e Image e determina 
il tipo di carattere utilizzato in un controllo o Form. È possibile specificare il nome del font, impostare lo 
stile del carattere (normale, corsivo, grassetto, etc.), o sottolineare il testo barrato, e regolare la 
dimensione del carattere. Per i controlli TextBox, ComboBox e ListBox, il tipo di carattere del testo 
visualizzato è impostato, mentre per altri controlli è impostato il carattere della Caption. 


L'impostazione Font di una Form imposta automaticamente il carattere di tutti i controlli, se posta 
all’inizializzazione della Form, ma non modifica il tipo di carattere di questi controlli se fossero già 
presenti per i quali sarà necessario reimpostare il carattere di ogni singolo controllo separatamente. La 
proprietà Font per un controllo Multipage può essere utilizzata solo con il codice VBA. 


40.18 La Proprietà ForeColor 


Questa proprietà si applica a Forme a tutti i controlli tranne Image e specifica il colore di primo piano, 
cioè il colore del testo visualizzato. Per quanto riguarda i controlli Font, ForeColor determina il colore 
del testo, mentre in un Frame, ForeColor determina il colore della Caption e in una ScrollBar o 
SpinButton, ForeColor determina il colore delle frecce. 


Da notare che l'impostazione ForeColor di una Form imposta automaticamente la proprietà ForeColor 
dei controlli Label, CheckBox, OptionButton, Frame, Multipage e TabStrip se inseriti nell’inizializzazione 
della Form stessa, ma non cambierà la proprietà ForeColor di questi controlli se fossero già presenti, 
per i quali sarà necessario reimpostarla per ogni singolo controllo separatamente. La proprietà 
ForeColor per un controllo Multipage può essere utilizzata solo con il codice VBA. 


40.19 La Proprietà Mouselcon 


Questa proprietà è applicabile a Forme a tutti i controlli, ad eccezione di Multipage e assegna 
un'immagine a un controllo che viene visualizzato quando l'utente sposta il mouse su tale controllo. 
Image viene assegnato specificando il percorso e il nome del file dove è collocata l’immagine e per 
utilizzare la struttura Mouselcon è necessario che la proprietà MousePointer sia impostata 

su fmMousePointerCustom (valore 99). 


40.20 La Proprietà Picture 


Questa proprietà è applicabile a Form e controlli Label, CheckBox, OptionButton, ToggleButton, Frame, 
CommandButton, Multipage e Image e specifica l'immagine da visualizzare in un controllo, specificando 
il percorso e il nome del file, per rimuovere l'immagine si deve premere CANC sul valore della 
proprietà. 


Per i controlli con Caption, è possibile specificare la posizione dell'immagine utilizzando la 
proprietà PicturePosition mentre per altri controlli e Form, si deve utilizzare la 

proprietà PictureAlignment per specificare la posizione dell'immagine e utilizzare la 

proprietà PictureSizeMode per specificare la modalità (dimensioni, scala, etc.) per visualizzare 
l'immagine 


242 


Microsoft” 


for Applications 


40.21 La Proprietà MousePointer 


Questa proprietà è applicabile a Forme a tutti i controlli, ad eccezione di Multipage e specifica che tipo 
di puntatore del mouse sarà visibile quando l'utente sposta il mouse sopra un controllo. Ci sono 15 
impostazioni: 


v. fmMousePointerDefault (valore 0) - puntatore standard, è il valore di default 

v. fmMousePointerArrow (valore 1) - freccia 

v. fmMousePointerCross (valore 2) - puntatore a croce 

v. fmMousePointerlBeam (valore 3) - |-Beam 

v. fmMousePointerSizeNESW (valore 6) - freccia a due punte punta nord-est e sud-ovest 

v. fmMousePointerSizeNS (valore 7) - freccia a due punte punta nord e sud 

v. fmMousePointerSizeNWSE (valore 8) - freccia a due punte punta nord-ovest e sud-est 

v. fmMousePointerSizeWE (valore 9) - doppia freccia che punta a ovest e ad est 

v. fmMousePointerUpArrow (valore 10) - freccia 

v_ fmMousePointerHourglass (valore 11) - clessidra 

v. fmMousePointerNoDrop (valore 12) - cerchio con una linea diagonale, che appare come un 
simbolo "Not", che indica un controllo non valido 

v. fmMousePointerAppsStarting (valore 13) - freccia e clessidra 

v. fmMousePointerHelp (valore 14) - freccia e il punto interrogativo 

v. fmMousePointerSizeAll (valore 15) - freccia a quattro punte, rivolto verso nord, sud, est e ovest 

v. fmMousePointerCustom (valore 99) - l'immagine specificata dalla struttura Mouselcon 


40.22 La Proprietà PicturePosition 


Questa proprietà è applicabile ai controlli Label, CheckBox, OptionButton, ToggleButton e 
CommandButton e specifica dove deve comparire l'immagine nel controllo. Ci sono 3 impostazioni in 
un formato in cui la stringa fmPicturePosition è seguita dalla posizione dell'immagine rispetto alla sua 
voce e al successivo allineamento della Caption relativa all'immagine, cioè. 


Y fmPicturePositionLeftTop - l'immagine viene visualizzata a sinistra del titolo e la Caption è 
allineata con la parte superiore del quadro 

Y. fmPicturePositionCenter - Sia l'immagine che la Caption sono concentrati nel controllo e la 
Caption è sulla parte superiore del quadro. 

Y fmPicturePositionAboveCenter (valore 7) — E’ il valore predefinito e l'immagine appare 
sopra la Caption e la stessa è centrata sotto l'immagine. 


40.23 La Proprietà TabIndex 


Questa proprietà è applicabile a tutti i controlli tranne Image e Tab/ndex rappresenta la posizione del 
controllo nell'ordine di tabulazione di un Form quando l'utente preme il tasto Tab. Il valore di indice è 
espresso come un valore Integer, indicando con 0 la prima posizione nell'ordine di tabulazione e il 
valore più alto dell'Indice sarà uno in meno del numero di controlli nella Form, a cui la proprietà 
TabIndex è applicabile. 

L’immissione di un valore di indice inferiore a zero darà un errore e un valore superiore al più alto 
possibile resetterà al valore più alto, e ogni controllo avrà un valore di indice univoco. 
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40.24 La Proprietà SpecialEffect 


Questa proprietà è applicabile a Form e controlli Label, TextBox, ComboBaox, ListBox, CheckBox, 
OptionButton, ToggleButton, Frame, Image e RafEdit e determina come appare visivamente il 
controllo. Per un CheckBox, OptionButton, o ToggleButton, le due impostazioni sono: 


v  fmButtoneEffectFlat (valore 0) 
v. fmButtonEffectSunken (valore 2) - di default per CheckBox e OptionButton. 


Per altri controlli sono applicabili cinque impostazioni che sono: 


fmSpecialEffectFlat (valore 0) - default per Form e i controlli Image e Label 
fmSpecialEffectRaised (valore 1) 

fmSpecialEffectSunken (valore 2) - di default per i controlli TextBox, ComboBox e ListBox 
fmSpecialEffectEtched (valore 3) - di default per Frame 

fmSpecialEffectBump (valore 6). 


«A 4 


L'aspetto visivo di ogni impostazione è auto-esplicativo e può essere piatto, in rilievo, incassato, inciso 
e Bump. 

Anche se ToggleButton ha SpecialEffect come una delle sue proprietà, è disabilitato e non può essere 
specificato, inoltre non è possibile utilizzare contemporaneamente sia la proprietà BorderStyle e 
SpecialEffect per specificare il bordo per un controllo in quanto per uno dei due con valore diverso da 
zero imposterà automaticamente l'altra proprietà a zero. Se la proprietà SpecialEffect per un Frame è 
impostato a zero, la proprietà BorderStyle viene ignorata. 


40.25 La Proprietà TabStop 


Questa proprietà è applicabile a tutti i controlli tranne Label e Image ed è rappresentata da un valore 
booleano (True o False) che specifica se il controllo può essere selezionato con il tasto Tab. Il valore 
True è di default, e imposta il controllo come una tabulazione, mentre invece il valore False ignora il 
controllo, ma la sua posizione nell'ordine di tabulazione (come specificato nella proprietà TabIndex) 
rimane intatto. 


40.26 La Proprietà Visible 


Questa Proprietà si applica a tutti i controlli e rappresenta un valore booleano (True o False) che è 
impostato per visualizzare o nascondere un controllo. Il valore di default è True, in cui il controllo è 
visibile. Questa proprietà è particolarmente utile in cui in seguito a una condizione è possibile attivare 
un controllo nascosto che altrimenti non si potrebbe vedere nella Form. 


40.27 La Proprietà WordWrap 


Questa proprietà è applicabile ai controlli Label, TextBox, CheckBox, OptionButton, ToggleButton, 
CommandButton e RafEdit ed è rappresentata da un valore booleano (True o False) che specifica se il 
testo di un controllo andrà a capo alla riga successiva. Il valore di default è True e se la 

proprietà MultiLine di un controllo è impostata su False, WordWrap viene ignorato nei controlli che 
supportano entrambe queste proprietà vale a dire TextBox. 


244 


Microsoft® 


for Applications 


41. Icontrolli ListBox e ComboBox 


| controlli ListBox e ComboBox permettono di visualizzare una lista di opzioni selezionabili dall'utente. 
La ragione principale per usare una casella combinata (ComboBox) o una casella di riepilogo (ListBox) è 
quella di poter visualizzare un elenco di elementi, dove nella casella di riepilogo (ListBox) è un elenco a 
discesa e gli elementi della lista sono sempre visibili mentre nel ComboBox la lista è “a scomparsa”, 
ovvero è visibile soltanto se l'utente fa clic sulla freccia verso il basso a destra del controllo. Le caselle 
combinate sono così chiamate perché sono composte da due parti, una porzione di testo che ricorda il 
controllo TextBox e un elenco che riporta ad una Listbox e "combinano" le caratteristiche che si 
trovano in entrambe le caselle di testo (TextBox) e le caselle di riepilogo (ListBox) e sono anche 
comunemente chiamate "elenchi a discesa". 


In sostanza la ComboBox è un elenco a discesa in cui la voce selezionata dall'elenco è visibile nell'area 
di testo, mentre i valori della lista sono visibili solo cliccando sul menu a tendina, mentre un ListBox 
mostra un certo numero di valori con o senza una barra di scorrimento, inoltre in una ComboBox, è 
visibile una sola voce senza utilizzare la tendina a discesa, mentre in un ListBox sono visibili molti più 
elementi. In una ComboBox è possibile selezionare solo una voce dall'elenco, mentre invece in un 
ListBox è possibile selezionare più opzioni dall'elenco. La rappresentazione grafica delle due caselle è la 
seguente: 
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41.1 Differenza tra ListBox e ComboBox 


v Inun ComboBox è visibile solo un elemento dell'elenco a discesa, e i valori della lista sono 
visibili utilizzando il menu a tendina, mentre un ListBox mostra un certo numero di valori con 
o senza una barra di scorrimento. 

v Inun ComboBox è possibile selezionare solo un'opzione dalla lista, mentre in un ListBox è 
possibile selezionare più opzioni dall'elenco. 

v In un ComboBox è possibile inserire un valore digitandolo nell’area di testo se non è incluso 
nella lista, cosa che non è possibile fare in un ListBox. 

v Il controllo CheckBox può essere utilizzato all'interno di un ListBox, ma non all'interno del 
ComboBox, inoltre il ListBox consente di visualizzare una casella di controllo accanto a ogni 
voce in elenco, per consentire all'utente di selezionare gli elementi. Per utilizzare il CheckBox 
in un controllo ListBox, si deve impostare la proprietà ListStyle nella finestra Proprietà 
su fmListStyleOption oppure utilizzando il codice VBA in questo modo: ListBox1.ListStyle = 
fmListStyleOption 


diversa indicazione, inoltre negli esempi di seguito riportati, i codici VBA devono essere 
inseriti nel modulo di codice del form, se non diversamente specificato. 


@d Tutte le proprietà e i metodi indicati di seguito sono comuni a ListBox e ComboBox, salvo 
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41.2 Il Metodo AddItem 


Questo metodo permette di aggiunge una voce alla lista in un ListBox a colonna singola o in un 
ComboBox. La sintassi è la seguente: Control.AddItem(Item, Index), che nel nostro caso 

diventa: ListBox1.AddItem(Item, Index), dove Item specifica l'elemento o la riga da aggiungere 

e Index è un numero intero che specifica la posizione in cui il nuovo elemento è collocato all'interno 
della lista, se omesso, viene aggiunto l'elemento alla fine. 


I numeri di posizione o di riga iniziano con zero, e il primo elemento ha il numero 0, e così via. Il valore 
di indice non può essere maggiore del numero totale di righe. Il metodo Addltem può essere usato solo 
con un codice VBA. Per popolare un ComboBox è possibile utilizzare vari metodi, per esempio, se 
usiamo una casella combinata per permettere all'utente di vare una scelta “fissa” come può essere di 
scegliere una regione, un tipo di vettura etc. possiamo usare il metodo Addltem e impostare le varie 
voci direttamente dal codice, inoltre l'operazione di inserimento dati deve essere fatta 

nell'evento /Initialize della Userfom in questo modo. 


Private Sub UserForm_Initialize() 
ComboBox1.Clear 
ComboBox1.AddItem "Veneto" 
ComboBox1.AddItem "Sardegna" 
ComboBox1.Additem "Lazio" 
ComboBox1.ListIndex = 0 

End Sub 


Se mandiamo in esecuzione questo codice ci viene riportata questa 
finestra 


Da notare che la prima voce dell’enunciato è 

l'istruzione ComboBox1.Clear che serve per svuotare di eventuali dati 
rimasti in memoria del ComboBox in operazioni precedenti, per essere 
certi che la casella combinata è vuota, si può usare una condizione come 
questa : /f ComboBox1.ListCount >= 1 Then ComboBox1. Clear 


L'istruzione ListCount è una proprietà per determinare il numero di righe presenti in una casella 
combinata o di riepilogo, che inserendola in un enunciato IF verifica se nella casella sono presenti dei 
dati, infatti se ListCount è maggiore o uguale a 1 allora si esegue lo svuotamento del ComboBox tramite 
l'istruzione Clear, evitando così il rischio di trovarsi i dati ripetuti nella casella combinata. La penultima 
istruzione ComboBox1.ListIndex = 0 Indica che si vuole far apparire la prima voce dell'elenco nel 
Combo come si vede in figura sopra, se avessimo usato la dicitura ComboBox.ListIndex = 1 avremmo 
come prima voce la seconda (Sardegna) presente nell'elenco. Possiamo utilizzare anche un ciclo per 
popolare il ComboBox in questo modo 


Private Sub UserForm_Initialize() 
With ComboBox1 

.Clear 

.Additem "Veneto" 

.AddItem "Sardegna" 

.AddItem "Lazio" 

.ListIndex =0 

End With 

End Sub 
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Oppure se vogliamo popolare il ComboBox con i dati presenti in un Range del foglio di lavoro possiamo 
usare questo enunciato: 


Private Sub UserForm_Initialize() 
j=2 
Do Until Sheets("Clienti").Cells(i, 2).Value = "" 
With Sheets("Clienti") 
elemento = .Cells(i, 2).Value 
End With 
ComboBox1.Additem elemento 
i=j+1 
Loop 
End Sub 


Per quanto riguarda il controllo ListBox non c'è nessuna differenza da quanto finora esposto, tutti i 


metodi e gli enunciati proposti possono essere usati anche per la casella di riepilogo ListBox avendo 
l'accortezza di sostituire il riferimento ComBox1 con ListBox1 (oppure il nome assegnato al controllo) 


41.3 Il Metodo Clear 


Questo metodo rimuove tutti gli elementi in un controllo ComboBox o ListBox e presenta la seguente 
Sintassi. Control.Clear, inoltre è da tenere presente che il metodo non funziona se ComboBox o ListBox 
viene associato a una fonte di dati utilizzando l’istruzione RowSource, in quanto i dati devono essere 
cancellati prima dell'uso del metodo Clear 


41.4 La Proprietà BoundColumn 


Questa proprietà specifica la colonna da cui estrarre il valore da inserire in un controllo ComboBox o 
ListBox. La prima colonna ha un valore BoundColumn di 1, la seconda colonna ha un valore di 2, e così 
via, Impostando il valore BoundColumn su 1 si assegnerà il valore della colonna 1 al ComboBox o 
ListBox permettendo così l'inserimento dei valori presenti nella colonna nel controllo. Impostando il 
valore di BoundColumn a 0 si assegna il valore della struttura ListIndex, che corrisponde al numero 
della riga selezionata, come valore del controllo ComboBox o ListBox. 


Questa impostazione è utile se si desidera determinare la riga della voce selezionata. La proprietà 
BoundColumn può essere impostata nella finestra Proprietà e può essere utilizzato anche con un 
codice VBA. 


Esempio: Impostando il valore BoundColumn a 0 si assegna il valore della proprietà ListIndex come 
valore del controllo 


Private Sub UserForm_Initialize() 
With ListBox1 

.ColumnCount = 2 
.ColumnWidths = "50;50" 
.RowSource = "=Foglio2!A2:B6" 
.BoundColumn = 0 

End With 

End Sub 
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41.5 La Proprietà ColumnCount 


Specifica il numero di colonne da visualizzare in un controllo ComboBox o ListBox, un valore 0 di 
ColumnCount non visualizza nessuna colonna e questa proprietà può essere impostata nella finestra 
Proprietà oppure utilizzando un codice VBA. 


41.6 La Proprietà ColumnHeads 


ColumnHeads restituisce un valore booleano (True o False) che determina la visualizzazione delle 
intestazioni di colonna per un ComboBox o ListBox e può essere impostata nella finestra Proprietà 
oppure utilizzando un codice VBA. Le intestazioni di colonna possono essere visualizzate solo se 
ColumnHeads è impostato su True nella finestra Proprietà oppure utilizzando il codice: 
ListBox1.ColumnHeads = True 


41.7 La Proprietà ListCount 


Determina il numero totale di righe in un controllo ListBox o ComboBox, e questa proprietà può essere 
utilizzata solo con un codice VBA e non è disponibile in fase di progettazione. 


41.8 La Proprietà ListRows 


Specifica il numero massimo di righe che verranno visualizzate nella parte casella di riepilogo di un 
ComboBox. Il valore predefinito è 8. 


Se il numero effettivo di elementi della lista superi tale valore massimo della proprietà 
(£) ListRows, apparirà una barra di scorrimento verticale nella casella di riepilogo del 
ComboBox e le voci in eccesso possono essere visualizzate scorrendo verso il basso). 


ListCount può essere utilizzata con la proprietà ListRows per specificare il numero di righe da 
visualizzare in un controllo ComboBox e può essere impostata nella finestra Proprietà oppure con un 
codice VBA. La proprietà ListRows è valida per ComboBox e non per ListBox. 


Esempio: Utilizzare la proprietà ListCount e ListRows, per impostare il numero di righe da visualizzare in 
ComboBox 


Private Sub UserForm_Initialize() 
With ComboBox1 

If .ListCount > 5 Then 

.ListRows = 5 

Else 

.ListRows = .ListCount 

End If 

End With 

End Sub 
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41.9 La Proprietà Column 


Si riferisce ad una colonna specifica, o combinazione di colonna e riga, in un ComboBox o ListBox a più 
colonne. Sintassi Control.Column (iColumn, iRow). La proprietà Column può essere utilizzata solo con 
un codice VBA e non è disponibile in fase di progettazione. 

iColumn specifica il numero di colonna in cui la prima colonna della lista ha valore 0 e iRow specifica il 
numero di riga la prima riga della lista ha valore 0. Sia iColumn che iRow sono valori interi che vanno da 
0 fino al numero di colonne e righe (rispettivamente) nell'elenco meno 1. 


Se si specifica entrambi i numeri di colonna e riga si farà riferimento ad un elemento specifico, mentre 
specificando solo il numero di colonna si farà riferimento a una colonna specifica. Per esempio 
ListBox1.Column (1) è si riferisce alla seconda colonna. È possibile copiare una matrice bidimensionale 
di valori in un controllo ListBox o ComboBox, utilizzando Column (o list ) piuttosto che aggiungere ogni 
singolo elemento con il metodo Additem. 


Esempio: Popolare il ListBox utilizzando il metodo AddItem e List e utilizzare la proprietà Column per 
assegnare il contenuto di ListBox a TextBox 


Private Sub UserForm_Initialize() 
With ListBox1 

.ColumnCount = 3 
.ColumnWidths = "50;50;50" 
.ColumnHeads = False 
.RowSource = "=Foglio2!A2:B6" 
.MultiSelect = fmMultiSelectMulti 
End With 

TextBox1 = "" 

End Sub 


Private Sub CommandButton1_Click() 

"Il metodo AddItem non funziona se ListBox è associato ai dati, quindi la riga di origine viene cancellata 
ListBox1.RowSource = "" 

'Crea una nuova riga con Additem 

ListBox1.AddItem "Banana" 

'aggiunge un elemento nella seconda colonna della prima riga 
ListBox1.List(0, 1) = "Martedì" 

'aggiunta di elementi in 3 colonne della prima riga 
ListBox1.List(0, 2) = "Giorno 2" 

ListBox1.Addltem "Arancione" 

'Aggiunge un elemento nella seconda colonna della seconda riga 
ListBox1.Column(1, 1) = "Mercoledì" 

'aggiunta di elementi in 3 colonne della seconda fila 
ListBox1.Column(2, 1) = "Giorno 3" 

ListBox1.AddItem "apple", 0 

'Crea una nuova riga con AddItem e si posiziona nella riga 1 
ListBox1.List(0, 1) = "Lunedì" 

'Aggiunta di elementi in 3 colonne e posiziona questa riga come la prima 
ListBox1.List(0, 2) = "Giorno 1" 

‘elemento in colonna 3 e numero di riga 2 del ListBox 
TextBox1.Value = ListBox1.Column(2, 1) 

End Sub 
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41.10 La Proprietà List 


La proprietà List viene utilizzata in combinazione con ListCount e ListIndex per restituire gli elementi in 
un controllo ListBox o ComboBox. Sintassi : Control.List (iRow, iCol) . Ogni elemento in una lista ha un 
numero di riga e un numero di colonna, in cui i numeri di riga e di colonna iniziano da zero, iRow 
specifica il numero di riga e nel caso iRow = 2 rappresenta la terza riga della lista, mentre invece 
iColumn specifica il numero di colonna e nel caso che iColumn = 0 indica la prima colonna della lista, 
omettendo questo argomento iColumn recupererà la prima colonna. Si deve specificare iColumn solo 
per un ListBox o un ComboBox a più colonne. 


Esempio: Utilizzare Selected, List per visualizzare e selezionare più elementi in un ListBox 


Private Sub UserForm_Initialize() 
With ListBox1 

.ColumnHeads = True 
.ColumnCount = 2 
.ColumnWidths = "50;0" 
.RowSource = "=Foglio3!A2:B6" 
.MultiSelect = fmMultiSelectMulti 
.TextColumn = 1 

End With 

With TextBox1 

.MultiLine = True 

.ControlSource = "=Foglio3!F2" 
Value = "" 

End With 

End Sub 


Private Sub CommandButton1_Click() 
TextBox1.Value = "" 

Forn=0 To ListBox1.ListCount - 1 

If ListBox1.Selected(n) = True Then 

If TextBox1.Value = "" Then 
TextBox1.Value = ListBox1.List(n, 1) 
Else 

TextBox1.Value = TextBox1.Value & vbCrLf & ListBox1.List(n, 1) 
End If 

End If 

Next n 

End Sub 


41.11 La Proprietà ListIndex 


Determina quale elemento viene selezionato in un controllo ComboBox o ListBox. Il primo elemento di 
un elenco ha un valore di ListIndex uguale a 0, il secondo elemento ha un valorei 1, e così via, quindi, è 
un valore intero compreso tra 0 e il numero totale di elementi in un controllo ComboBox o ListBox 
meno 1. Questa proprietà può essere utilizzata solo con un codice VBA e non è disponibile in fase di 
progettazione. Nota: In una selezione multipla attivata in un ListBox, ListIndex restituisce l'indice della 
riga che ha il focus, a prescindere dal fatto che sia selezionata la riga o meno. 
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41.12 La Proprietà MultiSelect 


Specifica se sono consentite selezioni multiple e sono disponibili 3 impostazioni: 


v fmMultiSelectSingle (valore 0), (predefinita), in cui solo un singolo elemento può essere 
selezionato 

v. fmMultiSelectMulti (valore 1), permette selezioni multiple in cui un elemento può essere 
selezionato o deselezionato facendo clic del mouse o premendo la barra spaziatrice 

Y. fmMultiSelectExtended (valore 2) permette selezioni multiple, in cui premendo il tasto SHIFT e 
contemporaneamente spostando la freccia su o giù (0 premere MAIUSC e facendo clic del 
mouse) continua la selezione dalla voce precedentemente selezionata con la selezione corrente 
(cioè un continuo della selezione); questa opzione permette anche di selezionare o 
deselezionare una voce premendo CTRL e cliccando il mouse. 


La proprietà MultiSelect può essere impostata nella finestra Proprietà oppure con un codice VBA. Nota: 
La proprietà MultiSelect è valida per ListBox e non per ComboBox . Quando vengono effettuate 
selezioni multiple, gli elementi selezionati possono essere determinati solo mediante la proprietà 
Selected immobili della ListBox. La struttura Selected avrà valori che vanno da 0 a ListCount meno 1 e 
sarà True se l'elemento è selezionato e False se non selezionata. 


Esempio: Determinare l'elemento selezionato in un controllo ListBox a selezione singola 


Private Sub CommandButton1_Click() 
If ListBox1.Value <> "" Then 

MsgBox ListBox1.Value 

End If 

End Sub 


41.13 Il Metodo Removeltem 


Viene utilizzato per rimuovere una riga dalla lista inun ComboBoxo ListBox. Sintassi 

Control. Removeltem (row_index), dove Row_index è il numero di riga che deve essere rimosso, 
considerando che la prima riga ha valore 0. Il metodo Removeltem non funziona se ComboBox o 
ListBox viene associato ai dati, quindi utilizzando RowSource i dati devono essere cancellati prima 
dell'uso, inoltre questo metodo può essere utilizzato solo con un codice VBA. 


41.14 La Proprietà RowSource 


Specifica la riga di origine di una lista (che potrebbe essere un intervallo del foglio di lavoro), per un 
ComboBox o ListBox. La proprietà RowSource può essere impostata nella finestra Proprietà oppure con 
un codice VBA. 

Per impostare RowSource nella finestra delle Proprietà, digitare senza virgolette il Range di origine in 
questo modo: " = Foglio2 A2: A6" che popola il ComboBox o il ListBox con i valori presenti nelle celle 
A2: A6 del Foglio2. Il codice VBA per questo passaggio è: ListBox1.RowSource = "= Foglio2 A2: A6". Non 
è necessario utilizzare il segno di uguale ("= Foglio2 A2: A6"), impostando la proprietà 

con ListBox1.RowSource = "Foglio2 A2: A6" avrà lo stesso effetto. 
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41.15 La Proprietà Selected 


Specifica se un elemento viene selezionato in un controllo ListBox. Sintassi 

Control.Selected (Item_Index) e restituisce Vero o Falso, se l'elemento è selezionato oppure no, 
impostando a True per selezionare la voce o rimuovere la selezione [vale a dire. Control.Selected 
(Item_Index) = True]. Item_Index è un valore intero compreso tra 0 e il numero di elementi nella lista 
meno 1, indicando la sua posizione relativa nella lista, vale a dire ListBox. Selected (2) = True seleziona il 
terzo elemento della lista. 


Questa proprietà è particolarmente utile quando si lavora con selezioni multiple e può essere utilizzata 
solo con un codice VBA e non è disponibile in fase di progettazione. Nota: In una selezione multipla in 
un ListBox, ListIndex restituisce l'indice della riga che ha il focus, a prescindere dal fatto che sia 
selezionata la riga o meno, da cui la proprietà Selected della ListBox può essere utilizzata per impostare 
una nuova selezione. In una selezione standard del ListBox, ListIndex restituisce l'indice dell'elemento 
selezionato e quindi dovrebbe essere usata per impostare una nuova selezione. 


Esempio: Determinare gli elementi selezionati in una selezione multipla ListBox 
Private Sub CommandButton1_Click() 
Forn=0 To ListBox1.ListCount - 1 
If ListBox1.Selected(n) = True Then 
MsgBox ListBox1.List(n) 
End If 
Next n 
End Sub 


41.16 La Proprietà Style 


Questa proprietà è valida per ComboBox e non per ListBox e determina se la scelta della voce può 
essere fatta dalla lista a discesa oppure digitando nel campo di testo il valore della ComboBox. Dispone 
di due impostazioni: 


v. fmStyleDropDownCombo (valore 0). L'utente ha entrambe le opzioni di digitare un valore 
personalizzato nell'area di testo o selezionare dall'elenco a discesa. Questo è il valore 
predefinito. 

v. fmStyleDropDownList (valore 2). L'utente può selezionare solo dall'elenco a discesa, come in 
ListBox. 


La proprietà Style può essere impostata nella finestra Proprietà oppure con codice VBA. 


41.17 La Proprietà TextColumn 


Specifica la colonna da visualizzare in un controllo ComboBox o ListBox a più colonne, quando una riga 
è selezionata dall'utente. La prima colonna ha un valore TextColumn di 1, la seconda ha un valore di 2, 
e così via. Impostare il valore di TextColumn a 0 visualizza il valore ListIndex (che è il numero della riga 
selezionata) nella proprietà TextColumn, questa impostazione è utile se si desidera determinare la riga 
della voce selezionata. 


La proprietà TextColumn può essere impostata nella finestra Proprietà o con codice VBA. Nota: In un 
ComboBox, quando un utente seleziona un elemento, la colonna specificata nella proprietà 
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TextColumn verrà visualizzato nella parte casella di testo del ComboBox. 


Private Sub UserForm_Initialize() ‘Usare di TextColumn per 1° colonna e BoundColumn per la 2° 
With ListBox1 

.ColumnHeads = True 
.ColumnCount = 2 

.ColumnWidths = "50;0" 
.RowSource = "=Foglio2!A2:B6" 
.MultiSelect = fmMultiSelectSingle 
.TextColumn = 1 

.BoundColumn = 2 

End With 

End Sub 


Private Sub CommandButton1_Click() 

If ListBox1.Value <> "" Then 
TextBox1.Value = ListBox1.Value & " cms" 
End If 

End Sub 


41.18 Aggiungere elementi per popolare un controllo ListBox o Combobox 


Impostare la proprietà RowSource di un controllo ListBox o ComboBox in un form utente per un elenco 
statico: Me.ListBox1.RowSource = "Foglio1 A1: B6" oppure Me.ListBox1.RowSource = "= Foglio1 A1: 


B6" Mentre per un elenco dinamico: 
Me.ListBox1.RowSource = "Foglio1 A1: B" . & Foglio1.Cells (Rows.Count, "B") End (xIUp) Row 


Esempio: Popolare un ComboBox impostando la proprietà RowSource di una lista denominata 


Private Sub UserForm_Initialize() 
With ComboBox1 

.ColumnCount = 2 
.ColumnWidths = "50;50" 


.ColumnHeads = True 
.RowSource = "Fogliol1!nome_intervallo" <<<< da cambiare con Vs. nome intervallo 


End With 
End Sub 


Popolare un ComboBox o ListBox da un array a colonna singola in un ListBox: 
ListBox1.List = Array ("Riga1", "Riga2", "Riga3", "Riga4") 

in un ComboBox: 

ComboBox1.List = array ("Riga1", " Riga2", " Riga3", " Riga4") 


Compilare un ListBox da una matrice denominata myArray: 


Dim myArray As Variant 
myArray = Array ("Adidas", "Nike", "Reebok") 
Me.ListBox1.List = myArray 
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Private Sub UserForm_Initialize() ‘Popolare ListBox a più colonne da un Range del foglio 
With ListBox1 

.ColumnCount = 3 

.ColumnWidths = "50;50;50" 

.ColumnHeads = False 

End With 

Dim rng As Range 

Set rng = Foglio1.Range("A1:C6") 

Me.ListBox1.List = rng.Cells.Value 

End Sub 


Private Sub UserForm_Initialize() ‘Popolare un ListBox a più colonne dal Range del Foglio di lavoro 
With ListBox1 

.ColumnCount = 3 

.ColumnWidths = "50;50;50" 

.ColumnHeads = False 

End With 

Dim var As Variant 

var = Foglio1.Range("A1:C6") 

Me.ListBox1.List = var 

End Sub 


Private Sub UserForm_Initialize() ‘“ Popolare un ComboBox con i 12 mesi in un anno 
With ComboBox1 

.ColumnCount = 1 

.ColumnWidths = "50" 

.ColumnHeads = False 

.RowSource = "" 

End With 

Forn=1To 12 

ComboBox1.Addltem Format(DateSerial(2014, n, 1), "'mmmm" 
Next n 

End Sub 
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42. I Controlli CheckBox - OptionBox e ToggleButton 


Il valore della proprietà di un CheckBox indica se è selezionato o meno. Un valore True indica che la 
casella è selezionata, False indica che è deselezionato e il valore Null indica che non è né attivo e né 
disattivo, e il CheckBox apparirà ombreggiato in questo caso. Per usare le 3 impostazioni si deve 
impostare Il valore della proprietà TripleState che può essere impostato sia nella finestra Proprietà o 
utilizzando una macro o codice VBA 


Esempio: Visualizzare il valore del CheckBox, indicando se è selezionato o in uno stato Null 
Private Sub UserForm_Initialize() 
With Me.CheckBox1 
.TextAlign = fmTextAlignCenter 
.TripleState = True 
End With 
End Sub 


Private Sub CheckBox1_Change() 

If CheckBox1.Value = True Then 
MsgBox "True" 

Elself CheckBox1.Value = False Then 
MsgBox "False" 

Else 

MsgBox "Null" 

End If 

End Sub 


Esempio: Attivare una casella di testo TextBox solo se è selezionato il CheckBox 
Private Sub UserForm_Initialize() 
Me.TextBox1.Enabled = False 
End Sub 


Private Sub CheckBox1__Click() 
If CheckBox1.Value = True Then 
TextBox1.Enabled = True 

Else 

TextBox1.Enabled = False 

End If 

End Sub 


42.1 Il Controllo OptionButton 


Il controllo OptionButton è usato per fare una scelta tra più opzioni ed è indicato anche come Radio 
Button, che sceglie un'opzione da un gruppo di opzioni che si escludono a vicenda. Se sono presenti 
vari OptionButtons in una Form e non sono raggruppati, selezionandone uno si deseleziona tutte gli 
altri presenti nella Form. Tutti gli OptionsButtons all'interno di un gruppo specifico si escludono a 


vicenda all'interno di quel gruppo e non influenzano la selezione di altre OptionButtons di fuori di tale 
gruppo, inoltre possono essere raggruppati con le seguenti modalità: 
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v Utilizzando la proprietà GroupName : Gli optionButtons possono essere prima aggiunti a un 
Form e poi assegnato ad un gruppo tramite la proprietà GroupName, in questo modo gli 
OptionButtons aventi lo stesso gruppo si escludono a vicenda selezionandone uno 

v_ Utilizzando un controllo Frame: Prima si aggiungere il controllo Frame alla Form e quindi si 
disegnano gli OptionButtons all’interno della stessa. Ogni Frame separa gli OptionButtons 
presenti al suo interno da altri presenti in altri frame indipendentemente che gli altri abbiano lo 
stesso GroupName. Tuttavia, potrebbe essere preferibile raggruppare gli OptionButtons 
utilizzando la struttura GroupName invece di usare un frame solo per questo scopo, per 
risparmiare spazio e ridurre le dimensioni del form. 

v_ Utilizzando un controllo Multipage che è anch'esso un contenitore e può essere utilizzato per 
raggruppare o organizzare i controlli all'interno di ciascuna delle sue pagine. Ogni pagina di un 
controllo multipage separa gli OptionButtons, indipendentemente dal fatto che tutte le 
OptionButtons (in tutte le pagine) hanno lo stesso GroupName . 


Il valore di proprietà di un OptionButton indica se si è selezionato o meno. Un valore True indica che è 
selezionato, False è il valore di default e indica che non è selezionata. 


Esempio: Determinare quali controlli all'interno di un Frame vengono selezionati 
Private Sub CommandButton1_Click() 
Dim ctrl As Control 
For Each ctrl In Frame1.Controls 
If ctrl.Value = True Then 
MsgBox ctrl.Caption 
End If 
Next 
End Sub 


Esempio: Quale OptionButton, in una Form, con un particolare GroupName, viene selezionato. 
Private Sub CommandButton1_Click() 
Dim ctrl As Control 
For Each ctrl In Me.Controls 
If TypeOf ctrl Is msforms.OptionButton Then 
If ctrl.GroupName = "GroupA" Then 
If ctrl.Value = True Then 
MsgBox ctrl.Caption & " è selezionato", vbOKOnly, "Seleziona un OptionButton" 
End If 
End If 
End If 
Next ctrl 
End Sub 


Con un CheckBox, l'utente può selezionare più opzioni, selezionando ogni CheckBox che rappresenta 
un'opzione disponibile nella scelta da eseguire, mentre invece un OptionButton viene utilizzato quando 
l'utente è autorizzato a selezionare solo una singola opzione. CheckBox può essere utilizzato in modo 
singolare, cioè un singolo CheckBox può essere selezionato o deselezionato che indica se l'opzione 
deve essere esercitata o meno. OptionButton invece vengono utilizzati in multipli, per indicare la scelta 
tra varie opzioni in modo esclusivo 
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Esempio: Determinare quale OptionButton all'interno di un Frame, è selezionato: 
Private Sub CommandButton1_Click () 
Dim ctrl As Control 
For Each ctrl In Frame1.Controls 
If TypeOf ctrl Is msforms.OptionButton Then 
If ctrl.Value = True Then 
MsgBox ctrl.Caption & " è selezionato", vbOKOnly, "Seleziona un OptionButton" 
End If 
End If 
Next ctrl 
End Sub 


Esempio: Utilizzare CheckBox per nascondere o scoprire colonne o righe 
Private Sub CheckBox1__Click() 
If CheckBox1.Value = True Then 
Foglio3.Columns("B").EntireColumn.Hidden = True 
Foglio3.Columns("C").EntireColumn.Hidden = False 
Else 
Foglio3.Columns("B").EntireColumn.Hidden = False 
Foglio3.Columns("C").EntireColumn.Hidden = True 
End If 
End Sub 
Private Sub CheckBox1__Click() 
Rows("1:3").Hidden = Not Rows("1:3").Hidden 
End Sub 


42.3 Il Controllo ToggleButton 


Il controllo ToggleButton è un controllo che esegue un'azione quando si clicca una volta e il pulsante 
rimane premuto, e un'azione diversa quando si clicca una seconda volta e si rilascia il pulsante. In 
sostanza si comporta come un normale interruttore e dispone di due possibilità, On e Off. Si può avere 
un valore True quando appare come premuto o False quando appare non premuto. 


i) ToggleButton può anche avere un valore Null (né selezionato né deselezionato) in cui 
apparirà ombreggiato, se la proprietà TripleState è impostata su true. 


Esempio: Utilizzare ToggleButton per nascondere o scoprire colonne o righe: 
Private Sub ToggleButton1_Click() 
If ToggleButton1.Value = True Then 
Foglio3.Columns("B").EntireColumn.Hidden = True 
Foglio3.Columns("C").EntireColumn.Hidden = False 
Else 
Foglio3.Columns("B").EntireColumn.Hidden = False 
Foglio3.Columns("C").EntireColumn.Hidden = True 
End If 
End Sub 


Private Sub ToggleButton1_Click() 


Rows("1:3").Hidden = Not Rows("1:3").Hidden 
End Sub 


257 


Microsoft® 


for Applications 


Esempio: Utilizzare un ToggleButton per alternare l'ordinamento tra ascendente o discendente 


A| A oe Meu sd] Di ife: SI Esa] A 

1 Nome Peso 

sl Scene I co l'Userformi. Quando ToggleButton viene 

4 | Giuseppe i 79 | | premuto,i dati nella colonna Ae 
5 Mario | 95 B vengono ordinati in ordine 

6 | Pietro | 98 | OndinainDiscendente | crescente e il pulsante viene 

È Pino_| 66 | visualizzato di colore verde. 

;) 

1 Nome Peso 

2| Pino 66 

Pietro ca Quando viene rilasciato le 

4| Mario 95 | dinate i 

5 Giuseppe 79 colonne vengono ordinate in 

6| Carlo 88 ordine decrescente e il colore del 
7| Alessio | 75 pulsante diventa rosso 

8 

9 


Private Sub UserForm_Initialize() 

Dim totalrows As Long 

totalrows = Foglio3.Cells(Rows.Count, "A").End(xIUp).Row 

Me.ToggleButton1.Value = True 

Me.ToggleButton1.Caption = "Ordina in Discendente" 

Me.ToggleButton1.Font.Bold = True 

Me.ToggleButton1.BackColor = RGB(0, 255, 0) 

Foglio3.Range("A2:B" & totalrows).Sort Key1:=Foglio3.Range("A2"), Order1:=xlAscending 
End Sub 


Private Sub ToggleButton1_Click() 

Dim totalrows As Long 

totalrows = Foglio3.Cells(Rows.Count, "A").End(xIUp).Row 

If Me.ToggleButton1.Value = True Then 

Me.ToggleButton1.Caption = "Ordina in Discendente" 

Me.ToggleButton1.BackColor = RGB(0, 255, 0) 

Foglio3.Range("A2:B" & totalrows).Sort Key1:=Foglio3.Range("A2"), Order1:=xlAscending 
Elself Me.ToggleButton1.Value = False Then 

Me.ToggleButton1.Caption = "Ordina in Ascendente" 

Me.ToggleButton1.BackColor = RGB(255, 0, 0) 

Foglio3.Range("A2:B" & totalrows).Sort Key1:=Foglio3.Range("A2"), Order1:=xIDescending 
End If 

End Sub 
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43. I Controlli Label, TextBox e CommandButton 


43.1 Il Controllo Label 


Il controllo Label serve per visualizzare un testo non modificabile dall'utente e viene utilizzato per 
descrivere altri controlli, ed è spesso usato per descrivere un TextBox o per visualizzare delle 
informazioni. Questo tipo di controllo deve essere inserito in un controllo UserForm e dato che è molto 
utilizzato, è inutile assegnare un nome significativo a ogni sua istanza, a meno che non la si debba 
modificare durante l'esecuzione del programma. Si utilizzano principalmente le seguenti proprietà: 


Caption: Per visualizzare il testo 

Left e Top: Per posizionarlo 

TextAlign: Per allineare il testo all'interno dell'etichetta 
Font: Per lo stile e il formato del testo 

BackColor e ForeColor: Per i colori di sfondo e del testo. 


L&S 


È possibile formattare una etichetta sia nella finestra Proprietà o mediante un'istruzione VBA 
come: Label1.Caption = "Inserire la quantità richiesta", oppure utilizzando una dichiarazione 
With come illustrato di seguito. 


Esempio: Cliccando sul pulsante di una Form verrà formattato il testo della Label 


Private Sub CommandButton1_Click() 

With Label1 

.Caption = "Inserire il testo" 

'Allineamento del testo impostato al centro 
.TextAlign = fmTextAlignCenter 

.WordWrap = True 

‘Impostare il tipo di carattere 

.Font.Name = "Arial" 

.Font.Size = 12 

.Font.Italic = True 

'impostare a giallo e il colore del testo e a rosso il colore di sfondo 
.ForeColor = RGB(255, 255, 0) 

.BackColor = RGB(255, 0, 0) 

End With 

End Sub 


43.2 Il Controllo CommandButton 


Un CommandButton viene in genere utilizzato per eseguire una macro tramite l'evento Click. Se 
entrate in VBE è possibile accedere all'evento Click facendo doppio clic sul CommandButton, oppure è 
possibile selezionare il nome del CommandButton (nel modulo di codice per il Form utente) nella 
casella a discesa nella finestra del codice a sinistra e poi selezionare e poi cliccare nella tendina in alto a 
destra. Cliccando sul CommandButton verrà eseguito il codice che viene inserito 

nell'evento Click oppure è possibile inserire il nome di una macro da eseguire 


Esempio: Usando l'evento Click si può chiudere la Form 
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Private Sub CommandButton2_Click () 
MsgBox "Chiusura UserForm !" 
Unload Me 

End Sub 


Esempio: Cliccando sul pulsante si esegue una macro per svuotare tutti i controlli della Form 
Private Sub CommandButton1_Click () 
ClearForm 
End Sub 


Private Sub ClearForm () 
Textbox1.value = "" 
ComboBox1.Value = 
CheckBox1.Value = False 
OptionButton1.Value = False 
End Sub 


43.3 Il Controllo TextBox 


Un controllo TextBox accetta dati da parte dell'utente. Oltre alle proprietà comuni menzionate in 
precedenza, le proprietà chiave includono: 


vY Proprietà AutoTab: Restituisce un valore booleano (True o False) che specifica se la scheda 
passa automaticamente al controllo successivo nell'ordine di tabulazione, mentre invece il 
valore False (che è di default) indica che lo spostamento al controllo successivo avviene 
manualmente quando l'utente preme il tasto Tab 

vY Proprietà EnterKeyBehavior: Restituisce un valore booleano (True o False) che determina 
l'effetto quando un utente preme il tasto Invio in un TextBox. Se la proprietà MultiLine è 
impostata su True, il valore indica la creazione di una nuova linea premendo Invio mentre il 
valore False (Default) si passa al controllo successivo nell'ordine di tabulazione. 

Y Proprietà MaxLength: Specifica il numero massimo di caratteri che possono essere inseriti in 
una TextBox. Specificando un valore di 0 indica che non vi è alcun limite massimo. 

v Proprietà MultiLine: Restituisce un valore booleano (True o False) che determina se il testo 
viene visualizzato in più righe o meno, nella TextBox. True indica che il testo viene visualizzato in 
più righe, e questo è anche il valore di default. 

Y Proprietà PasswordChar: Specifica quali caratteri si devono visualizzare nella TextBox al posto 
dei caratteri effettivamente inseriti o digitati dall'utente. Questa proprietà è utile per 
proteggere i codici di sicurezza sensibili, o per convalidare un utente prima di consentire di 
procedere ulteriormente. 

vY Proprietà ScrollBars: Specifica se un TextBox ha barre di scorrimento verticali e/o orizzontali, o 
nessuna. Ci sono 4 impostazioni "auto-esplicativo": 


fmsScrollBarsNone (valore 0) - questa è l'impostazione di default 
fmScrollBarsHorizontal (valore 1) 

fmScrollBarsVertical (valore 2) 

fmScrollBarsBoth (valore 3). 


VV Vv V 


L'impostazione fmScrollBarsNone non visualizza nessuna barra di scorrimento e se la proprietà 
AutoSize è impostata su True, non comparirà nessuna barra di scorrimento perché il TextBox si allarga 
per accogliere il testo o i dati aggiuntivi. Se WordWrap è impostata su True, non comparirà nessuna 
barra di scorrimento orrizzontale nel TextBox. 
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Le impostazioni della barra di scorrimento fmScrollBarsHorizontal o fmScrollBarsBoth, visualizzano una 
barra di scorrimento orizzontale in una TextBox a linea singola se il testo è più lungo rispetto alla 
capienza della casella. Le impostazioni della barra di scorrimento fmScrollBarsVertical o 
fmScrollBarsBoth, visualizzano una barra di scorrimento verticale in una TextBox a più righe se il testo è 
più lungo rispetto alla capienza della casella e WordWrap è impostata su True. 


Per visualizzare una barra di scorrimento orizzontale in un TexBox multilinea, l'impostazione della barra 
di scorrimento dovrebbe essere fmScrollBarsHorizontal, e WordWrap dovrebbe essere impostata su 
False e il testo dovrebbe essere più lungo rispetto alla capienza della casella. 


i) Una barra di scorrimento orizzontale (o verticale) è visibile solo se il controllo ha spazio 
sufficiente per includere la barra di scorrimento sotto o al bordo destro della sua casella. 


Esempio: Aggiungere un TextBox in un Form e formattarlo utilizzando il codice VBA 
Private Sub CommandButton1_Click() 
Dim box_1 As MSForms.TextBox 
Set box_1 = Controls.Add("Forms.TextBox.1", "Esempio 1") 
With box_1 
.Font.Name = "Times New Roman" 
.Font.Size = 10 
.TextAlign = fmTextAlignLeft 
.Width = 100 
.Height = 50 
.Left = 50 
.Top = 75 
.MultiLine = True 
WordWrap = True 
.AutoSize = False 
.ScrollBars = 2 
.SetFocus 
End With 
End Sub 


Esempio: Impostare Enabled di una TextBox per impedire all'utente di digitare nella casella di testo 
Private Sub UserForm_Initialize() 
With ListBox1 
Fori=1T010 
.AddItem i 
Next i 
.ControlTipText = "Selezionare un numero dal Listbox per inserirlo nel TextBox." 
End With 
Me.TextBox1.Enabled = False 
End Sub 
Private Sub ListBox1_Click() 
TextBox1.Text = ListBox1.Value 
End Sub 


Esempio: Utilizzare una TextBox per impostare una password, in questo esempio usiamo la 


proprietà PasswordChar per controllare se il nome utente e la password, sono autorizzati a procedere e 
caricare UserForm1 viene caricato. 
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Private Sub UserForm_Initialize() 
TextBox2.MaxLength = 5 
TextBox2.PasswordChar = "*" 
TextBox2.BackColor = RGB(255, 255, 0) 
End Sub 


Private Sub CommandButton1_Click() 

Dim password As String 

If TextBox1.Text = "Pippo" And TextBox2.Text = "123456" Then 
password = "True" 

Elself TextBox1.Text = "Topolino" And TextBox2.Text = "987654" Then 
password = "True" 

Elself TextBox1.Text = "Paperino" And TextBox2.Text = "369852" Then 
password = "True" 

End If 

If password = "True" Then 

MsgBox "Password Esatta Puoi Continuare" 

Unload Me 

UserForm1.Show 

Else 

MsgBox "Paasword o Username errato. Riprova" 

TextBox1.Text = vbNullIString 

TextBox2.Text = vbNullIString 

TextBox1.SetFocus 

End If 

End Sub 


44. I Controlli ScrollBar e SpinButton 


Ogni volta che l'utente ha un discreto numero di scelte da fare per l'inserimento dei dati in un foglio di 
lavoro di Excel è possibile risparmiare tempo automatizzando il modo in cui si inseriscono questi dati. È 
possibile farlo in diversi modi e uno di loro è quello di utilizzare un pulsante di selezione o una barra di 
scorrimento. 


44.1 Il Controllo ScrollBar 


Un controllo ScrollBar, permette di cambiare incrementando o decrementando il valore visualizzato 
da altri controlli come UserForm, TextBox, Label, etc. o il valore in un intervallo di celle quando un 
utente fa clic sulle frecce di scorrimento. Il componente ScrollBar è uno strumento per gestire un 
valore definito dal programma e può essere rappresentato graficamente in verticale.Le principali 
proprietà di questo controllo sono: 
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Y Value: Restituisce o imposta il valore del componente utilizzando dati di tipo Long 

Y SmallChange: Specifica il cambiamento incrementale, come un valore intero (variabile Long), 
che si verifica quando un utente fa clic sulla freccia di scorrimento. Il valore di default è 1. 

Y LargeChange: Specifica il cambiamento incrementale quando l'utente fa clic tra una freccia di 
scorrimento e la casella di scorrimento. Il valore di default è 1. 

v Min e Max: Sono valori interi (Long) che specificano il valore massimo e minimo accettabili del 
controllo ScrollBar. In una barra di scorrimento verticale cliccando la freccia di scorrimento 
verso il basso, aumenta il valore e la posizione più bassa visualizza il valore massimo (sarà 
inverso quando si sceglie la freccia di scorrimento). In una barra di scorrimento orizzontale clic 
sulla freccia di scorrimento a destra aumenta il valore e la posizione più a destra visualizza il 
valore massimo (sarà inverso quando si fa clic sulla freccia di scorrimento a sinistra). 

Y Orientation: Determina una barra di scorrimento verticale o una barra di scorrimento 
orizzontale. Dispone di 3 impostazioni: 


v. fmOrientationAuto (Valore -1) - Questo è il valore predefinito in cui le dimensioni della 
ScrollBar sono determinare automaticamente, sia in verticale o orizzontale, nei casi in cui il 
valore della larghezza è più alto dell'altezza, allora la ScrollBar è orizzontale e dove l'altezza 
è più alta della larghezza, allora la ScrollBar è verticale 

v. FmOrientationVertical (Valore 0) — La ScrollBar è verticale 


v. FmOrientationHorizontal (valore 1) — La ScrollBar è orizzontale. 
w 


Private Sub UserForm_Activate() ‘ Mostrare un Frame con scrollBar laterale 
With Me.Framel 
.ScrollBars = fmScrollBarsVertical ' crare barra verticale 
'Cambia questi valori per la dimensione della barra 
.ScrollHeight = .InsideHeight * 2 
.ScrollWidth = .InsideWidth * 9 
End With 
End Sub 


Private Sub UserForm_Activate() ‘Mostrare una Userform con scrollbar laterale 
With Me 
.ScrollBars = fmScrollBarsVertical 
'Cambia questi valori per la dimensione della barra 
.ScrollHeight = .InsideHeight * 2 
.ScrollWidth = .InsideWidth * 9 
End With 
End Sub 


Private Sub ScrollBar1_Change() ‘incrementare valore Textbox dalla scrollbar 
Me.TextBox1.Text = Me.ScrollBar1.Value 
End Sub 


Private Sub UserForm_Initialize() 
With Me.ScrollBar1 


.Value = 0 
.Min=0 
.Max = 100 


.LargeChange = 10 
.SmallChange = 5 
End With 
End Sub 
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Option Explicit ‘scorrere le righe di un foglio e mostrare contenuto in Textbox 
Dim wks As Worksheet 
Dim riga_I, riga_F As Long 
Private Sub ScrollBar1_Change() 
Dim row As Long 
row = CLng(Me.ScrollBar1.Value) 
With wks 
Me.TextBox1.Text = .Cells(row, 1) 
Me.TextBox2.Text = .Cells(row, 2) 
Me.TextBox3.Text = .Cells(row, 3) 
Me.TextBox4.Text = .Cells(row, 4) 
Me.TextBox5.Text = .Cells(row, 5) 
End With 
End Sub 


Private Sub UserForm_Initialize() 
Set wks = Worksheets("Foglio1") 
Riga_1=2 
Riga_F = wks.Cells(riga_1, 1).End(xIDown).row 
With Me.ScrollBar1 


.Value = riga_l 
.Min = riga_l 
.Max = riga_F 


.LargeChange = 1 
.SmallChange = 1 
End With 
Call ScrollBar1_Change 
End Sub 


44.2 Il Controllo SpinButton 


Un controllo SpinButton, o pulsante di selezione, viene spesso utilizzato per incrementare o 
decrementare il valore di un altro controllo, ad esempio un controllo Label e la proprietà 

SmallChange determina il valore di un controllo SpinButton quando cambia. Un controllo SpinButton è 
molto simile a un controllo ScrollBar e viene utilizzato per incrementare o diminuire il valore (cioè un 
numero, data, ora, etc.) visualizzato da altri controlli UserForm, TextBox, Label, etc. o il valore in un 
intervallo di celle. 


Un controllo SpinButton (noto anche come un controllo di selezione) funziona come un controllo 
ScrollBar, con proprietà simili (cioè SmallChange, Min, Max) e la proprietà SmallChange specifica il 
cambiamento incrementale, come un valore intero, che si verifica quando un utente fa clic sulla freccia 
di scorrimento. Un controllo SpinButton non ha una struttura LargeChange come in una ScrollBar e in 
una barra di scorrimento verticale cliccando la freccia di scorrimento diminuisce il valore mentre 
premendo la freccia di scorrimento su un Spinner verticale aumenta il valore. 


La differenza tra i controlli ScrollBar e SpinButton è che la struttura ScrollBar 
può essere trascinata per modificare il valore del controllo su incrementi 
maggiori (pur mantenendo l'incremento basso per click), che i vantaggi di 
una ScrollBar per effettuare una selezione da tutto un numero di valori e 
coprono una gamma estremamente vasta. 
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Private Sub UserForm_Initialize() ‘cambiare data in textbox con uno SpinButton 
Dim dt, dt_su As Date 

TextBox1.Enabled = False ‘Non consentire l'immissione manuale in TextBox 

dt = "10/10/2014" 

TextBox1.Text = dt 

End Sub 


Private Sub SpinButton1_SpinUp() ‘aumentare di un giorno alla volta, quando stesso mese 
Dt_su = "30/10/2014" 

If DateValue(TextBox1.Text) < dt_su Then 

TextBox1.Text = DateValue(TextBox1.Text) + 1 

End If 

End Sub 


Private Sub SpinButton1_SpinDown() ‘diminuire di un giorno alla volta, quando stesso mese 
Dim dt_giu As Date 

Dt_giu = "01/10/2014" 

If DateValue(TextBox1.Text) > dt_giu Then 

TextBox1.Text = DateValue(TextBox1.Text) - 1 

End If 

End Sub 


Esempio: Spostare le voci in alto e in basso in un ListBox 


Private Sub carica_Box() 
Dim n As Integer, cell As Range, rng As Range 


Set rng = Foglio1.Range("A1:A6") = 
For n= 1 To ListBox1.ListCount 2) 
ListBox1.Removeltem ListBox1.ListCount - 1 3 
Next n 4 | 
For Each cell In rng.Cells 5 | 
Me.ListBox1.AddItem cell.Value 6] 
Next cell 7_| 
End Sub Li 
9 
A 
Private Sub UserForm_Initialize() 10 
carica_Box ui 
End Sub 12 


Private Sub SpinButton1_SpinUp() 

Dim n As Long 

n= ListBox1.ListIndex 

Ifn>0 Then 

Foglio1.Range("A" & n + 1).Value = Foglio1.Range("A" & n).Value 
Foglio1.Range("A" & n).Value = ListBox1.Value 

carica_Box 

ListBox1.Selected(n - 1) = True 

Elself ListBox1.ListIndex = 0 Then 

MsgBox "Il primo elemento non può essere spostato in alto!" 
Else 

MsgBox "Seleziona una voce!" 

End If 

End Sub 
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Private Sub SpinButton1_SpinDown() 

‘cliccare sulla freccia in basso per spostare l'elemento selezionato nel ListBox verso il basso 
Dim n As Long 

n= ListBox1.ListIndex 

Ifn>=0Andn<ListBox1.ListCount - 1 Then 

Foglio1.Range("A" & n + 1).Value = Foglio1.Range("A" & n + 2).Value 
Foglio1.Range("A" & n + 2).Value = ListBox1.Value 

carica_Box 

ListBox1.Selected(n + 1) = True 

Elself ListBox1.ListIndex = ListBox1.ListCount - 1 Then 

MsgBox "L'ultimo elemento non può essere spostato in basso!" 

Else 

MsgBox "Seleziona una voce!" 

End If 

End Sub 


Private Sub CommandButton1_Click() 
Unload Me 
End Sub 


45. I Controlli Frame, Multipage e TabStrip 


I frame (cornici) vengono utilizzati per i controlli di gruppo che lavorano insieme e sono correlati tra 
loro o hanno qualche comunanza, in una Form, inoltre per raggruppare e organizzare una serie di 
elementi correlati, migliorano anche il layout della Form. Ad esempio, in un modulo che contenga le 
caratteristiche fisiche come l'altezza, peso e colore dei capelli possono essere raggruppati in un 
particolare frame. | Frame sono particolarmente utili per raggruppare due o più OptionButtons e 
vengono utilizzati per due finalità: 


v. Perraggruppare e organizzare in una Form i controlli e migliorare visivamente il layout 

v. Per impostare il comportamento di un gruppo di OptionButtons, che si escludono a vicenda 
all'interno di un frame e selezionando un OptionButton saranno deselezionate tutte le altre 
OptionButtons all'interno del Frame. 


Private Sub CommandButton1_Click() 

Dim ctrl As Control ‘Determinare nome e Caption di tutte le OptionButtons in un Frame 
For Each ctrl In Frame1.Controls 

If TypeOf ctrl Is MSForms.OptionButton Then 

If ctrl.Enabled = True Then 

MsgBox ctrl.Name & " è abilitato con Caption " & ctrl.Caption 

End If 

End If 

Next 

End Sub 
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45.1 Il Controllo MultiPage 


Un controllo multipage si compone di uno o più oggetti pagina, ciascuna contenente un proprio set di 
controlli e viene utilizzato al meglio quando si desidera gestire una grande quantità di dati che possono 
essere classificati in diverse categorie, in cui è possibile creare una pagina separata per ogni categoria. 
Tutti i controlli che vengono aggiunti a una pagina di un controllo multipage, sono contenuti e 
diventano una parte di quella pagina che distingue i controlli da quelli che sono in altre parti della 
Form. 


Un controllo multipagina ha diverse pagine e la selezione di una pagina la rende quella corrente 
(rendendola visibile), nascondendo le altre e ogni pagina di un controllo multipage ha un proprio ordine 
di tabulazione. Le pagine sono numerate da 0, e per selezionare la prima pagina in un controllo 
multipagina, si utilizza il codice: MultiPage1.Value = 0 e per impostazione predefinita, un controllo 
multipage ha 2 Pagine e per aggiungere delle pagine, si deve fare clic col destro del mouse sulla scheda 
e selezionare dal menu che appare la voce Nuova pagina 


45.2 Aggiungi o Rimuovi pagina 


Per aggiungere una pagina con codice VBA si utilizza il Metodo Add che presenta questa sintassi 
Set m = MultiPage1.Pages.Add (pageName, pageCaption, pagelndex), dove: 


v.. Pagelndex (opzionale) è un intero che specifica la posizione della pagina da inserire, a partire da 
O per la prima posizione 

v. PageName imposta il nome per la pagina 

v.. PageCaption imposta la Caption ed entrambe sono opzionali. 


Esempio di inserimento di nuove pagine: Set m = MultiPage1.Pages.Add ("Page5", "NewPage", 1) 
Questo codice aggiunge una nuova pagina con il nome Pagina5 e Caption Nuova Pagina, come 
seconda pagina, cioè nella seconda posizione nell'ordine di tabulazione. 


MultiPage1.Pages.Add "Pagina3" 

MultiPage1.Pages (2). Caption = "Nuova" 

Questi 2 codici aggiungono una nuova pagina (la terza) con il nome Pagina3 e Caption Nuova 
MultiPage1.Pages.Add: Questo codice aggiunge semplicemente una nuova pagina. 

Per rimuovere una pagina si usa questo metodo con 


sintassi MultiPage1.Pages.Remove (pagelndex) . 


Esempio: MultiPage1.Pages.Remove (1) :Questo codice rimuove la seconda pagina. 


45.3 Individuare e Accedere a una pagina 


Per modificare o impostare le proprietà di una pagina in fase di esecuzione, abbiamo bisogno di 
identificare quella pagina nel controllo multipage, che può essere fatto in diversi modi. Per accedere a 
una singola pagina in un controllo multipagina, possono essere usati i seguenti metodi 
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v Numeric Index : Con Index (indice) 0 ci si riferisce alla prima pagina, l'indice 1 alla seconda 
pagina e così via. Il codice per impostare la Caption è : MultiPage1.Pages (Index).Caption 

v. Metodo Item: L'indice (Item) O si riferisce alla prima pagina, l'indice 1 alla seconda pagina e così 
via. Il codice per impostare la Caption è : MultiPage1.Pages.Item (ItemIndex).Caption 

v. Page Name: Per impostare la Caption usando il nome pagina si usa il seguente 
codice: MultiPage1.Pages ("Nuova Pagina"). Caption oppure MultiPage1.Pages.Item ("Nuova 
pagina"). Caption 

v. Page Object : Il codice per impostare la Caption è MultiPage1.PageName.Caption 

v. Proprietà SelectedItem : Il codice per impostare la Caption è MultiPage1.SelectedIltem.Caption 


ni ——_—__n ) UserFormi 


Pagei | Page2 | Page3 | Page4 Pages | Elisa | Daniele | Mario | Alice  Genny 


Esempio: Modificare le proprietà di ogni pagina di un controllo multipage 


Private Sub UserForm_Activate() 
MultiPage1.Pages(0).Caption = "Elisa" 
MultiPage1.Pages.Item(1).Caption = "Daniele" 
MultiPage1.Pages("Page3").Caption = "Mario" 
MultiPagel.Page4.Caption = "Alice" 
MultiPagel.Value = 4 
MultiPage1.Selecteditem.Caption = "Genny" 
End Sub 


45.4 Il Controllo TabStrip 


Un controllo TabStrip viene utilizzato per visualizzare contenuti diversi in ogni scheda per la stessa serie 
di controlli. Un TabStrip è una raccolta di schede in cui ogni scheda contiene una serie di controlli. Per 
impostazione predefinita, un controllo TabStrip ha 2 Tabs, per aggiungere delle schede, si deve fare clic 
col destro del mouse sulla scheda e selezionare Nuova Pagina (selezionare Elimina pagina per eliminare 
un Tab). 


45.5 Aggiungi o rimuovi una scheda 


Per aggiungere una scheda si utilizzoa il Metodo Add che ha questa sintassi 

Set t = TabStrip1.Tabs.Add (tabname, tabCaption, tabIndex) dove tabIndex (opzionale) è un 

numero intero che specifica la posizione della linguetta da inserire, si inizia da 0 per la prima posizione, 
mentre tabname imposta il nome per la scheda e tabCaption imposta la Caption, entrambi sono 
opzionali Set t = TabStrip1.Tabs.Add ("TAB4", "newtab", 1) Questo codice aggiunge una nuova scheda 
con il nome TABA e Caption newtab, come seconda scheda (cioè seconda posizione nell'ordine di 
tabulazione). 
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TabStrip1.Tabs.Add "Tab3" 

TabStrip1.Tabs (2) Caption = "Prova" 

Questi 2 codici aggiungono una nuova scheda denominata Tab3 e impostano la Caption a Prova 
Per rimuovere una scheda si usa la sintassi TabStrip1.Tabs.Remove (tabCaption) . 


Esempio: TabStrip1.Tabs.Remove ("Prova"), questo codice rimuove la scheda con Caption Prova 


45.6 Differenza tra un controllo Multipage e TabStrip 


Un controllo multipage è un contenitore per i controlli, simile a un frame, ogni pagina ha un insieme 
separato di controlli e selezionando una pagina si nascondono le altre pagine del controllo, mentre un 
controllo TabStrip contiene un insieme coerente di controlli in tutte le schede e il contenuto dei 
controlli cambia quando è selezionata una scheda diversa ma la visibilità dei comandi rimangono 


45.7 Selezione di una scheda 


Per modificare o impostare le proprietà di una scheda a run-time, si deve identificare il Tab nel 
controllo TabStrip, che può essere fatto in diversi modi, si può usare la proprietà SelectedItem del 
controllo TabStrip che indica che è selezionata la scheda Tab. Si ricorda che per selezionare una scheda 
si deve impostare la proprietà Value del controllo TabStrip. | valori partono da 0, e la prima scheda in 
un controllo TabStrip avrà un valore 0, il valore della seconda sarà 1, e così via. Per accedere a una 
singola scheda in un controllo TabStrip, si possono usare i seguenti metodi 


v Numeric Index: Con indice O si riferisce alla prima pagina, con indice 1 alla seconda e così via. Il 
codice per impostare la Caption è : TabStrip1.Tabs (Index).Caption 

v_ Metodo Item: Con Indice 0 si riferisce alla prima pagina, con indice 1 alla seconda pagina e così 
via. Il codice per impostare la Caption è : TabStrip1.Tabs.Item (ltemIndex).Caption 

Y Tab Name : || codice per impostare la Caption è: TabStrip1.Tabs ("tabname").Caption 
oppure TabStrip1.Tabs.Item ("TabName"). Caption 

Y Tab Object : Il codice per impostare la Caption è: TabStrip1.TabName.Caption 

vY Proprietà SelectedItem : Il codice per impostare la Caption è : TabStrip1.SelectedItem.Caption 


Esempio: Cambiare impostare le proprietà di ogni scheda di un controllo TabStrip 


Private Sub UserForm_Initialize() \LserForm3 
TabStrip1.Tabs(0).Caption = "Veneto" 
TabStrip1.Tabs.Item(1).Caption = "Sicilia" 
TabStrip1.Tabs("Tab3").Caption = "Lazio" — 
TabStrip1.Tab4.Caption = "Liguria" MIcrosott Excel x 
TabStrip1.Value = 4 
TabStrip1.Selecteditem.Caption = "puglia" 


End Sub 


Veneto Sicilia | Lazio | Liguria | puglia | 


TAB2 Ha come Caption Sicilia 


Private Sub CommandButton1_Click() 
iu 


Dim i As Integer 
For i= 0 To TabStrip1.Tabs.Count - 1 
MsgBox TabStrip1.Tabs(i).Name & " Ha come Caption " & TabStrip1.Tabs(i).Caption 
Next i 
End Sub 
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46. Il Controllo Image e RafEdit 


Un controllo /mage consente di visualizzare delle immagini nella propria applicazione. Per assegnare 
una foto a questo controllo in fase di progettazione, si utilizza la proprietà Image, inoltre è possibile 
assegnare un'immagine al controllo Image in fase di esecuzione utilizzando la funzione LoadPicture. Un 
aspetto importante è quello di inserire un'immagine nel controllo Image o adattare le dimensioni del 
controllo all'immagine, che determina come sarà visualizzata. Questo può essere fatto usando la 
proprietà PictureSizeMode come descritto di seguito. 


La Proprietà PictureSizeMode specifica come viene visualizzata l'immagine, vale a dire, se il controllo 
Image non ha le stesse dimensione dell'immagine è possibile modificare la modalità di visualizzazione 
con le proprietà disponibili che sono: 


v. fmPictureSizeModecClip (valore 0) - se il controllo immagine non ha le stesse dimensioni 
dell'immagine ritaglia le parti dell'immagine che non rientrano nello spazio del controllo 
immagine. 

v. fmPictureSizeModeStretch (valore 1) — ridimensiona l'immagine per adattarla alcontrollo Image. 
Se le proporzioni dell'immagine e del controllo sono diverse l’immagine viene distorta 

v. fmPictureSizeModeZoom (valore 3) — Ridimensiona l'immagine senza distorcela e l’immagine 
viene ingrandita o rimpicciolita fino a che non raggiunge i margini orizzontali o verticali del 
controllo. Se il limite orizzontale viene raggiunto per primo, il rimanente spazio verticale 
apparirà vuoto e se il limite verticale viene raggiunto per primo, il rimanente spazio orizzontale 
apparirà vuoto. 


La Proprietà PictureSizeMode può essere impostata nella finestra Proprietà oppure con codice VBA. 
La Proprietà PictureAlignment specifica la posizione relativa o l'allineamento del quadro all'interno del 
controllo Image. Sono disponibili 5 impostazioni: 


fmPictureAlignmentTopLeft (valore 0) 
fmPictureAlignmentTopRight (valore 1) 
fmPictureAlignmentCenter (valore 2) 
fmPictureAlignmentBottomLeft (valore 3) 
fmPictureAlignmentBottomRight (valore 4). 


ì A 4 


Le impostazioni sono auto-esplicative, per esempio fmPictureAlignmentBottomLeft significa che 
l’immagine si allinea nell'angolo in basso a sinistra del controllo Image. 


Se l'immagine è impostata su fmSizeModesStretch nella proprietà PictureSizeMode, 
(È) l'immagine si estende per adattarsi al suo controllo, quindi PictureAlignment non dispone di 
alcun effetto. 


Utilizzando la Funzione LoadPicture si assegna un'immagine al controllo Image in fase di esecuzione: si 
usa la seguente Sintassi: ImageControl.Picture = LoadPicture (percorso) 


Esempio: Visualizzare un'immagine nel pulsante di comando, all'attivazione della UserForm: 
Private Sub UserForm_Initialize () 
CommandButton1.Picture = LoadPicture ("C:\Test\Immagini\img1.jpg") 
End Sub 
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Esempio: Selezionare la foto da visualizzare nel controllo Image dal ListBox1 
Private Sub UserForm_Initialize () 
ListBox1.Addltem "Immagine1" 
ListBox1.Addltem "Immagine2" 
ListBox1.Addltem "Immagine3" 
ListBox1.Addltem "Immagine4” 
End Sub 


Private Sub ListBox1__Click () 

If ListBox1.Value = "immagine1" Then 

Image1.Picture = LoadPicture ("C:\Test\Immagini\immagine1.jpg") 
Elself ListBox1.Value = "immagine2" Then 

Image1.Picture = LoadPicture ("C:\Test\Immagini\immagine2.jpg") 
Elself ListBox1.Value = "immagine3" Then 

Image1.Picture = LoadPicture ("C:\Test\Immagini\immagine3.jpg") 
Elself ListBox1.Value = "immagine4" Then 

Image1.Picture = LoadPicture ("C:\Test\Immagini\immagine4.jpg") 
End If 

End Sub 


Esempio: Selezionare il percorso di un'immagine da visualizzare nel controllo Image dal ListBox1 
Private Sub UserForm_Initialize () 
Dim img1, img2, img3, img4 As String 
img1 = "C:\Test\Immagini\immagine1.jpg" 
img2 = "C:\Test\Immagini\immagine2.jpg" 
img3 = "C:\Test\Immagini\immagine3.jpg" 
img4 = "C:\Test\Immagini\immagine4.jpg" 
ListBox1.Addltem img1 
ListBox1.Addltem img2 
ListBox1.Addltem img3 
ListBox1.Addltem img4 
End Sub 
Private Sub ListBox1_Click () 
Image1.Picture = LoadPicture (ListBox1.List (ListBox1.ListIndex)) 
End Sub 


Esempio: Visualizzare un immagine nel controllo Image cliccando sul pulsante di comando: 
Private Sub CommandButton1_Click () 
With UserForm2 
Image1.Picture = LoadPicture ("C:\Test\Immagini\immagine4.jpg") 
End With 
End Sub 


46.1 Il Metodo GetOpenFilename 


Questo metodo consente all'utente di immettere un nome di file nella finestra di dialogo standard 
Apri File. Il metodo non apre qualsiasi file, viene visualizzata solo la casella per accettare il nome del 
file, e restituisce il nome inserito dall'utente o il nome del file selezionato, che potrebbe anche essere 
un percorso (cioè cartella e nome del file). La sintassiè la seguente: 

Espressione GetOpenFilename ([FileFilter], [FilterIndex], [Titolo], [ButtonText], [Selezione multipla]) 
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FileFilter è una stringa che specifica i criteri per filtrare i file. Si compone di coppie di stringhe e ogni 
parte comprende il carattere jolly ed è separato da virgole. 
Esempio: FileFilter: = "File di testo (txt.), * txt, TIFF (* tif.), * tif, JPEG Files (* jpg.), * jpg” 


L'esempio seguente di FileFilter specifica 3 criteri di filtri di file (file di testo txt, i file TIFF e file JPEG) e 
consente all'utente di inserire o selezionare i file con estensione txt, Jpg e tif. Per includere più 
espressioni in un unico criterio di filtro di file, utilizzare punti e virgola per separare ogni espressione. 
Esempio: FileFilter: = "JPEG File Interchange Format (* jpg, * jpeg, * jfif: * GPE), * jpg, * jpeg, * jfif; * 
GPE” 


E’ possibile utilizzare FileFilter specificando 1 criterio solo di filtro peri file (JPEG) e comprende quattro 
espressioni che consentono la selezione di file con estensione jpg, jpeg, jfif e GPE. Tralasciando questo 
argomento sarà di default il filtro "Tutti i file (*. *), *.#". 


Y FilterIndex è il criterio di default del filtro dei file specificati dal numero indice che va da 1 al 
numero di criteri specifici di filters. Omettendo di menzionare Filterindex, o specificando un 
numero di indice oltre la sua dotazione, verrà impostato il primo criterio del filtro file. 

Y Titolo specifica il titolo della finestra di dialogo.Il titolo predefinito è "Open" se non specificato. 

v MultiSelect se impostato a True consente la selezione multipla dei file . 


Private Sub UserForm_Initialize() ‘Usare LoadPicture per caricare foto in un controllo Image. 
Me.Image1.BackColor = RGB(152, 255, 152) 

Me.Label1.Caption = "Clicca sulla casella verde per selezionare e caricare un'Immagine" 
Me.CommandButton1.Caption = "Cliccare per Uscire" 

End Sub 


Private Sub Image1_Click() 

Dim fileName As String 

fileName = Application.GetOpenFilename(filefilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files 
(*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, 
Title:="Seleziona un file", MultiSelect:=False) 

If fileName = "False" Then 

MsgBox "File non selezionato!" 

Else 

Me.Image1.Picture = LoadPicture(fileName) 

Me.Repaint 

Me.Label1.Caption = "Immagine Caricata" 

End If 

End Sub 


Private Sub CommandButton1_Click() 
Unload Me 
End Sub 


Private Sub UserForm_Initialize() ‘Usare LoadPicture per caricare foto in un controllo Image 
Me.Image1.BackColor = RGB(152, 255, 152) 

Me.Label1.Caption = "Clicca sulla casella verde per selezionare e caricare un'Immagine" 
Me.CommandButton1.Caption = "Cliccare per Uscire" 

End Sub 
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Private Sub Image1_Click() 

Dim filtr As String, ttl As String, fileName As String 

Dim fltrIndx As Integer 

Dim mitiSIct As Boolean 

fltr = "Tiff Files(*.tif;*.tiff),*.tif;*.tiff JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap 
Files(*.bmp),*.bmp" 

fltrindx = 2 

tt = "Seleziona un file" 

mitiSIct = False 

ChDrive "C" 

ChDir "C:\Test\Immagini" 

fileName = Application.GetOpenFilename(fltr, flItrIndx, ttl, , mitiSIct) 
If fileName <> "False" Then 

Me.Image1.Picture = LoadPicture(fileName) 

Me.Repaint 

Me.Label1.Caption = "Immagine Caricata" 

End If 

End Sub 


Private Sub CommandButton1_Click() 


Unload Me 
End Sub 


46.2 Il Controllo RefEdit 


Il controllo RefEdit è disponibile solo in una UserForm e consente all'utente di selezionare una cella o 
un intervallo di celle del foglio di lavoro, permette anche di digitare direttamente nella casella di testo i 
riferimenti di cella. Nel campo del controllo RefEdit è visibile l'indirizzo della cella o l'intervallo di celle , 
che un utente seleziona o digita nel campo stesso. Per ottenere l'indirizzo di una cella o l'intervallo di 
celle memorizzate in un controllo RefEdit si utilizza la proprietà Value. 


Private Sub CommandButton1_Click () ‘Selezionare una cella ed eseguire il codice premendo un pulsante 
Dim rngAddress As String 

rngAddress = RefEdit1.Value 

Range (rngAddress). Value = "Ciao" 

Range (rngAddress). Interior.Color = RGB (255, 0, 0) 

If MsgBox ("Azione eseguita. Vuoi Uscire?", VbQuestion + vbYesNo) = vbYes Then 

Unload Me 

End If 

End Sub 
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47. Utilizzare il controllo ListView 


Il controllo ListView viene utilizzato per visualizzare informazioni di tipo gerarchico e consente di 
mostrare elenchi o liste di dati, oltre ad essere di grande impatto visivo. Questo tipo di controllo è 
diventato popolare con Windows Explorer in quanto è lo stesso tipo di lista usata dall'interfaccia di 
Explorer (Gestione risorse o Esplora risorse) per visualizzare Files e cartelle, inoltre le sue proprietà 
permettono di personalizzarne la visualizzazione in quattro stili diversi che sono: 


v. Largelcon (Icone grandi): Ogni elemento è visualizzato con un'icona e del testo in basso 

v Smalllcon (Icone piccole): Ogni elemento è visualizzato con una piccola icona e del testo alla sua 
destra. 

v. Details (Dettagli): Gli elementi sono disposti uno per riga. Ogni riga è suddivisa in più colonne, la 
prima contiene l'elemento stesso, le altre visualizzano i suoi attributi, inoltre ogni colonna ha 
un'intestazione. 

v. List (Elenco): Ogni elemento è visualizzato con una piccola icona e del testo alla sua destra e gli 
elementi sono organizzati in colonne senza intestazione. 


Per rendersi conto di come viene visualizzata ciascuna modalità basta aprire Windows Explorer e 
selezionare i comandi corrispondenti nel menu Visualizza e per darvi un'idea della flessibilità di questo 
controllo dovete sapere che il desktop di Windows non è nient'altro che un grande controllo ListView 
in modalità Icon, con sfondo trasparente. 


Il controllo ListView è un componente aggiuntivo .ocx che può essere aggiunto a Visual Basic attraverso 
Windows Common Control 6.0 e per averlo disponibile in VB per Excel si deve seguire il percorso dal 
menu Strumenti — Controlli aggiuntivi e nella finestra che appare scorrere la lista e selezionare la 

voce Microsoft Listview Control, versione 6.0. 


Controlli'agprumtivi 


Controlli disponibili: 


O Microsoft ImageComboBox Control, version É A | 
O Microsoft ImageList Control, version 5.0 (SP 
O Microsoft ImageList Control, version 6.0 Annulla 

O Microsoft InkE dit Control 

O Microsoft InkPicture Control GI 

O Microsoft Intermet Transfer Control 6.0 [SPE] 

O Microsoft Listview Control, version 5.0 [SP2] 

[sfMicrosoft Listview Control, version 6.0 

O Microsoft Masked Edit Control, version 6.0 (£ 

O Microsoft MonthView Control 6.0 [SPE] 

O Microsoft Multimedia Control, version 6.0 (SF Mostra 

O) Microsoft Office Chart 10.0 le 


< ] "n I 3] [ Solo elementi selezionati 


Microsoft Listview Control, version 6.0 
Posizione CAWINDOWS\system32\MSCOMCTLOCx 


Una volta confermata la scelta premendo sul pulsante Ok nella casella degli strumenti apparirà l'icona 
del controllo ListView 


Il controllo ListView dispone di due collection distinte: 
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v Listlttems che comprende gli elementi testuali e grafici che rappresentano le voci da visualizzare 
e in modalità Report, è possibile specificare, per ogni voce, tutte le rispettive sottovoci 
mediante l’array ListSubltems. 

v. ColumnHeaders che include oggetti che influenzano l'aspetto delle singole intestazioni delle 
colonne visibili in modalità Report. 


La proprietà ListView può essere: /con View, Small Icon View, List View e Report View e per impostare 
una modalità di visualizzazione si deve assegnare alla proprietà View uno dei seguenti valori costanti: 


0-Ivwlcon = Icon View 
1-IvwSmalllcon = Small Icon View 
2-IvwList = List View 

3-IvwReport = Report View 


Per aggiungere un elemento al controllo ListView si deve usare il metodo Add() della collezione 
ListItems, tenendo presente che ogni riga di un oggetto ListView può essere definito in due parti 


ListView1.Listltems(x): ‘Specifica la riga per la prima colonna della riga 
ListView1.Listltems(x).ListSubltems(y): ‘Consente di specificare le colonne adiacenti 


Esempio: ListView1.ListlItems(5).ListSubltems(1) indica la seconda colonna della quinta riga della 
ListView, per cui la sintassi per aggiungere una riga è la seguente: 
ListView1.Listltems.Add [Index], [Key], [Text], [Icon], [SmallIcon] , in cui le voci rappresentano: 


v Index: Valore Opzionale, è un numero che indica la posizione della voce all’interno della 
collezione. Se viene omesso, la voce viene inserita in coda alla collezione. Il suo valore varia in 
funzione di successivi inserimenti e cancellazioni 

v Key: Valore Opzionale, è una stringa che rappresenta la chiave identificativa univoca di ogni 
voce nella collezione. Utile per la ricerca di una voce. 

Text: Valore Opzionale, rappresenta il testo che viene mostrato nel controllo 

Y Icon: Valore Opzionale, specifica l'immagine da visualizzare quando il ListView è la modalità 
Ivwlcon 

Y Smalllcon: Valore Opzionale, specifica l'immagine da visualizzare quando ListView è 
IvwSmalllcon, IvwList o in modalità IvwReport 


La sintassi per aggiungere un elemento alla colonna di destra della riga specificata è la seguente: 
ListView1.ListlItems(1).ListSubltems.Add [Index], [Key], [Text], [Reportlcon], [TooltipText] , dove: 


1: Specifica il numero della riga nel controllo ListView. 

Index: Valore Opzionale, specifica il numero di colonna per l'aggiunta di un dato. Il valore 1 

corrisponde alla seconda colonna di un oggetto ListView 

v Key: Valore Opzionale, è una stringa che rappresenta la chiave identificativa univoca di ogni 
voce nella collezione 

Text: Valore Opzionale, specifica il testo che verrà visualizzato nel ListView 

v Reporticon: Valore Opzionale, visualizza un'icona o un'immagine in base all'elemento 
specificato 

Y TooltipText: Valore Opzionale, sggiunge un tooltip nell'elemento specificato 


v 
v 


Mentre invece per aggiungere delle colonne, è necessario prima definire i testi, le dimensioni e le 
intestazioni usando la seguente sintassi 
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ListView1.ColumnHeaders.Add [Index], [Key], [Text], [Width], [Alignment], [Icon], dove le voci 
rappresentano: 


Index: Valore Opzionale 

Key: Valore Opzionale. è una stringa che rappresenta la chiave identificativa univoca di ogni 
voce nella collezione 

Text: Valore Opzionale, specifica il testo che verrà visualizzato nel ListView. 

Y Width: Valore Opzionale, specifica la larghezza della colonna. Il valore predefinito è 72 punti 

Y Alignment: Valore Opzionale, specifica l'allineamento della colonna. Le costanti disponibili:. 
LvwColumnLeft (Default) IvwColumnCenter, IvwColumnRight 

Icon: Valore Opzionale, specifica l'immagine da visualizzare nell'intestazione. 


L'esempio che segue mostra il principio di riempimento di un oggetto ListView. 


Private Sub UserForm_Initialize() 
With ListView1 ‘Imposta il numero di colonne e intestazioni 
With .ColumnHeaders 
'Rimuove le vecchie intestazioni 
.Clear 
.Add ,, "Nome", 80 ‘aggiunge 3 colonne con nome intestazione e larghezza della colonna 
.Add,, "Città", 50 
.Add,, "Età", 50 
End With 
With .Listlttems 'Riempie la prima colonna con 3 righe 
.Add,, "Gino" 
.Add,, "Mario" 
.Add,, "Elisa" 
End With 
.Listlttems(1).ListSubltems.Add ,, "Città1" 'Riempie le colonne 2 e 3 della 1° riga 
.Listlttems(1).ListSubltems.Add , , 30 
'Riempie le colonne 2 e 3 della seconda riga 
.Listlttems(2).ListSubltems.Add , , "Città2" 
.Listltems(2).ListSubltems.Add , , 27 
'Riempie le colonne 2 e 3 della terza riga 
.Listlttems(3).ListSubltems.Add , , "Città3" 
.Listlttems(3).ListSubltems.Add , , 41 
End With 
'Specifica le modalità di visualizzazione in "Dettagli" 
ListView1.View = IvwReport 


UserFormi 


End Sub 
Cittài 
TOR01O Cittàz 
E si ottiene una Form come la seguente Cittàs 


Questa macro è un esempio semplificato ed è ovviamente possibile creare un loop per ottimizzare il 
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riempimento. Una volta visualizzati nel controllo, i dati possono essere letti e modificati, la procedura 
sotto riportata scorre tutto il ListView e trasferisce le informazioni in un foglio di calcolo. 


Private Sub CommandButton1_Click() 
Dim i As Integer, j As Integer 
Fori=1ToListView1.Listlttems.Count ‘ciclo su tutte le righe 
Cells(i, 1) = ListView1.ListlItems(i).Text 
Forj= 1 To ListView1.ColumnHeaders.Count-1 'Loop sulle colonne 
Cells(i, j + 1) = ListView1.ListlItems(i).ListSubltems(j).Text 
Next j 
Next i 
End Sub 


-- Gino 


2 (Mario Città2 
3 Elisa Città3 


UserFormi 


Le informazioni contenute in una ListView 
possono essere facilmente modificate, ad 
esempio, se vogliamo modificare il testo nella 
terza colonna della prima riga possiamo usare 
un codice come il seguente: 


ListView1.listItems(1).listSubltems(2).Text = "Prova" 


Un altro esempio per cambiare il testo nella terza riga della prima colonna 
ListView1.ListlItems(3).Text = "prova Modifica" 


| dati nella prima colonna possono essere modificati anche manualmente nel controllo ListView, ma è 
possibile impedire questa azione specificando il valore 1 (IvwManual) nella proprietà Labe/lEdit Oppure 
tramite questo codice: ListView1.labeledit = 1 


E' inoltre possibile assegnare elementi chiave unici in una ListView in modo che i dati possono essere 
recuperati tramite questa chiave di identificazione. Per esempio può essere recuperato il contenuto 
della voce a cui viene assegnato il tasto "A1". 

Nota: la procedura restituisce un errore se la chiave non esiste nel ListView. MsgBox 
ListView1.Listltems("A1").Text 


E per recuperare una specifica voce sotto "A2" nell'elemento "A1" 
MsgBox ListView1.ListItems("A1").ListSubltems("A2").Text 
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È inoltre possibile ottenere la chiave di una riga, questa procedura restituisce una stringa vuota se non 
è stato assegnato nessun tasto. MsgBox ListView1.ListlItems(2).Key 


Questa macro consente di assegnare una chiave per la Listltem della seconda riga e se la chiave esiste 
già per questo elemento, verrà sovrascritto. Se si tenta di assegnare una chiave già assegnata ad un 
altro elemento, la procedura restituisce un messaggio di errore, e questo è logico in quanto la chiave 
deve essere univoca. 


Private Sub CommandButton2_Click() 


MsgBox ListView1.ListItems(2).Key 'Legge la chiave originale 
ListView1.ListItems(2).Key = "Nuova Key" 'Assegna nuova chiave al Listltem della 2° riga 
MsgBox ListView1.ListItems(2).Key ‘verifica delle nuove chiavi 

End Sub 


Inoltre è possibile eliminare delle righe specifiche nella ListView. 


ListView1.Listltems.Remove 3 ‘Rimuovere la terza riga 
ListView1.Listltems.Remove "A1" ‘eliminare una riga in base alla sua Key 
ListView1. Listltems. Remove (ListView1. Selecteditem. Index) ‘Eliminare la riga attiva 


Mentre invece per eliminare tutti i dati in un controllo ListView si usa questo codice: 
ListView1.ListItems.Clear 


E possibile modificare la formattazione del testo del controllo per personalizzare la visualizzazione delle 
informazioni, nel codice sotto riportato si modifica il colore del testo nel 2° elemento della prima riga. 
ListView1.listitems(1).ListSubltems(2).ForeColor = RGB(100, 0, 100) 


Oppure si può applicare un formato a una "cella” del listview 
ListView1.ListlItems(2).ListSubltems.Add ,, Format(1234567.89, "####0.00") 


La proprietà Griglia permette di visualizzare una griglia nel ListView, questa proprietà è molto utile per 
migliorare la leggibilità dei dati: ListView1.Gridlines = True 

Un'altra opzione del controllo consente di visualizzare le caselle di controllo nella colonna di sinistra. 
Me.ListView1.CheckBoxes = True 


È quindi possibile specificare lo stato di default del CheckBox, se non si specifica questo parametro, il 
testo non sarà visibile subito, ma è necessario fare clic sul bordo sinistro della riga per far apparire il 
CheckBox. 


Dim i As Integer 

For i= 1 To ListView1.Listltems.Count 
ListView1.ListItems(i).Checked = False 

Next i 


Possiamo usare l'evento ItemCheck per identificare quando una casella è selezionata oppure 
deselezionata e modificare il colore del testo in blu e grassetto. 
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Private Sub ListView1_ltemCheck(ByVal Item As MSComctiLib.Listltem) 
Dim j As Integer 
If Item.Checked = True Then 
'Cambia Colore 
Item.ForeColor = RGB(0, 0, 255) 
'Imposta il grassetto 
Item.Bold = True 


Forj= 1Toltem.ListSubltems.Count 
Item.ListSubltems(j).ForeColor = RGB(0, 0, 255) 
Item.ListSubItems(j).Bold = True 

Next j 

Else 

'Cambia Colore 

Item.ForeColor = RGB(1, 0, 0) 

Item.Bold = False 


Forj= 1To Item.ListSubltems.Count 
ltem.ListSubltems(j).ForeColor = RGB(1, 0, 0) 
ltem.ListSubltems(j).Bold = False 

Next j 

End If 
End Sub 


Inoltre è possibile scegliere di nascondere le intestazioni delle colonne utilizzando la 
proprietà HideColumnHeaders. ListView1.HideColumnHeaders = True 


La seguente macro specifica che i dati devono essere centrati nella colonna 
ListView1.ColumnHeaders.Add , , "Città", 50, IvwColumnCenter 


La struttura permette tramite la proprietà AllowColumnReorder di spostare la posizione delle colonne 
tramite un drag & drop. ListView1.AllowColumnReorder = True 
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48. Gestire gli input da tastiera in un controllo TextBox 


Durante la stesura di programmi o verticalizzazioni in VBA si verifica molto spesso la necessità di fare in 
modo che un utente in una TextBox possa digitare solo un input specifico, come numeri interi, stringhe 
etc. sia per evitare errori di elaborazione del dato inserito che per una corretta scrittura di dati specifici 
nei relativi fogli di lavoro. E’ possibile eseguire il controllo sul testo immesso anche successivamente 
all'immissione, ma risulta molto più comodo limitare la scelta del tipo di dati da inserire (numeri, 
stringhe etc.) direttamente nella TextBox utilizzando l'evento "KeyPress", che contiene il tasto digitato, 
e il suo codice Ascii per controllarlo. Prima di iniziare ad usare codice VBA per programmare il TextBox 
è consigliato stilare una lista delle opzioni e dei vincoli che la casella di testo (TextBox) deve avere, 
inoltre si deve aggiungere anche il nostro obiettivo finale, che è quello di scrivere il valore desiderato in 
una cella, in formato numerico, nel foglio di lavoro, pertanto la lista potrebbe essere come la seguente: 


v Accettare solo numeri, una virgola o un segno — (meno) 

v Accettare solo un segno meno, che si deve trovare all'inizio della stringa 

v Accettare solo un punto posizionato nella posizione desiderata. 

v Scrivere il valore del TextBox in un formato numerico nel foglio di lavoro 

Infine, ci si deve porre una domanda significativa; il nostro codice viene usato una sola volta oppure 
poco frequentemente o viene richiamato ripetutamente? Se è così, possiamo costruire una funzione e 
richiamarla ogni volta che ne abbiamo bisogno. 


Iniziamo con la costruzione di una UserFom denominata "Form1", in cui riponiamo una TextBox 
denominata "Text1" e un pulsante di comando denominato "Command1" che cliccando su di esso 
convaliderà l'assegnazione del valore della nostra TextBox nell'apposita cella del foglio di lavoro. 
Iniziamo con la verifica del testo inserito nella TextBox che sia di formato numerico e che possa 
contenere una virgola o un segno meno utilizzando il seguente codice 


Private Sub Text1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
If InStr("1234567890,-", Chr(KeyAscii)) = 0 Then KeyAscii = 0 
End sub 


Analizziamo questa riga: lf InStr("1234567890,-", Chr(KeyAscii)) = 0 Then KeyAscii = 0 


Y La funzione Chr restituisce una stringa contenente il carattere associato al codice carattere 
specificato nella variabile KeyAscii che corrisponde al codice del tasto premuto nella nostra 
procedura. 

Y La funzione InStr (stringa1, stringa2), restituisce un valore di tipo Variant, che indica la posizione 
della prima occorrenza di una stringa (stringa2) all'interno di un'altra stringa (stringa1), nel 
nostro codice abbiamo: stringa1 = "1234567890, -" e stringa2 = Chr (KeyAscii)). 

v La funzione = 0 rappresenta un avviso che non è stata trovata l’occorrenza nella stringa di 
riferimento e quindi restituisce 0. 

v L’enunciato KeyAscii = 0 è un valore nullo assegnato al pulsante premuto che equivale ad 
annullare il testo digitato. 


Molto brevemente con il codice sopra esposto verifichiamo se non c'è un’occorrenza del carattere 
corrispondente al tasto premuto nella nostra stringa di riferimento, in tal caso non prendiamo in 


considerazione il testo digitato. 


Testando il codice nella UserForm otteniamo l'effetto desiderato, ma l'utente potrebbe avere la 
sensazione che la sua tastiera possa avere un problema (non scrive i caratteri), si dovrebbe rimandare 
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un messaggio di errore, ma pesante a quanti avvisi potrebbe ricevere l'utente utilizzando un metodo 
come questo. Risulta più conveniente mettere un "Beep" tramite l'altoparlante di sistema per 
comunicare all'utente che il testo digitato non è permesso, pertanto il codice diventa: 


Private Sub Text1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
If InStr("1234567890,-", Chr(KeyAscii)) = 0 Then KeyAscii = 0 : Beep 
End Sub 


A questo punto è possibile modificare il codice per accettare un segno — (meno) che sarà posto all'inizio 
della stringa con l'aggiunta di un operatore (Or) nella seguente forma: 


Private Sub Text1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 

If InStr("1234567890,-", Chr(KeyAscii)) = 0 Or Text1.SelStart > 0 And Chr(KeyAscii) = "-" _ 
Then KeyAscii = 0 : Beep 

End If 


Analizziamo questa parte: Or Text1.SelStart> 0 And Chr (KeyAscii) =" - "' 


vY La proprietà SelStart indica l'inizio del testo selezionato, o il punto di inserimento e se non viene 
selezionato nessun testo, l'intervallo di valori validi è compreso tra 0 e il numero totale di 
caratteri nell'area di modifica del controllo e pertanto restituisce la posizione che è occupata 
dal carattere premuto, se questa non corrisponde al primo (0), l'inserimento viene cancellato 
v And Chr (KeyAscii) = "-" assicura che SelStart venga applicata solo a un carattere. 


A questo punto, è possibile consentire di poter digitare una virgola in qualsiasi punto tra due numeri, 
ma una sola volta. Fondamentalmente abbiamo bisogno di un nuovo operatore (And) nella seguente 
forma: 


Private Sub Text1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 

If InStr("1234567890,-", Chr(KeyAscii)) = 0 Or Text1.SelStart > 0 And Chr(KeyAscii) = "-" _ 
Or InStr(Text1.Value, ",") <> 0 And Chr(KeyAscii) = "," Then KeyAscii = 0 : Beep 

End If 


Analizziamo questa parte: Or InStr (Text1.Value, ",") <> 0 And Chr (KeyAscii) = "," 


Y Viene utilizzato, nuovamente, per verificare se /nStr ha già un punto esistente nella stringa. 
Se il carattere è un punto (che sarebbe troppo), viene rifiutato. 


In sostanza, se c'è già un punto nella stringa, e se il carattere digitato è un punto, vale a dire che stiamo 
cercando di inserire un secondo punto, viene rifiutato. A questo punto si dovrebbe cercare di vietare il 
copia e incolla, compreso il controllo della clipboard, ma questo aspetto è più difficile in quanto non 
possiamo semplicemente prendere in considerazione solo il primo livello degli Appunti di Excel, ma 
dobbiamo anche considerare Windows, e questo è oltre la portata di questo tutorial, pertanto per il 
momento riteniamo che non c'è nessun evento copia/incolla diretto al TextBox, quindi proseguiamo 
con l’analisi degli altri vincoli da rispettare che sono i seguenti: 


Verificare che la stringa non è vuota. 

Che non ha punti. 

Se ha un solo carattere, e che non è parte di una delle 10 cifre, viene rifiutato. 

Che si tratta di una stringa che rappresenta un numero come definito inizialmente. 


e a, 
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Useremo l'evento Private Sub Text1_BeforeUpdate (ByVal Cancel As MSForms.ReturnBoolean), che si 
verifica prima di modificare i dati in un controllo, per controllare il valore della casella di testo prima 
che venga convalidato. Poco sopra abbiamo detto che se il codice venisse utilizzato di frequente 
sarebbe indicato utilizzare, o meglio, creare una funzione personale sia per fornire ergonomia 
professionale alla futura applicazione, che per comodità. Quindi possiamo sfruttare l'opportunità per 
costruire una funzione a questo livello con il seguente codice: 


Private Sub Text1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) 
Dim stringal As String 

Stringa1 = Text1.Value 

If FunOk(stringa1) = True Then Cancel = True: Text1.Value = "": Beep: MsgBox _ 
"Input non valido !" 

End Sub 


La nostra Funzione è stata chiamata "FunOK" e restituisce un valore booleano (True o False) che ci dirà 
se la stringa proposta dovrebbe essere respinta o no. Per analizzare la funzione useremo la variabile 
stringa1 a cui viene assegnato il valore della TextBox. La funzione "FunOK", presenta di default il valore 
False, mentre se il valore è True, la stringa viene scartata. 


FunOK If (stringa1) = True Then Cancel = True: Text1.Value = " "Beep: MsgBox" Input non valido " 


Che sta a indicare: Se il valore di ritorno è True, quindi il parametro Annulla della macro è vero, vuol 
dire che hai inserito una stringa vuota nel controllo TextBox, emetti un segnale acustico e visualizza il 
messaggio "Input non valido !". Per verificare se la stringa è vuota non c'è bisogno di avviare un 
processo, per questo, utilizziamo una nuova istruzione IF Then Else auto-esplicativa come la seguente: 


If stringa1 = "" Then Exit Function 
Se non include nessun segno possiamo usare un’altra istruzione If Then Else nella forma: 
If Len(Replace(stringa1, ".", ""))<> Len(stringa1) Then FunOK = True: Exit Function 


Da ricordare che la funzione Len restituisce un valore long che contiene il numero di caratteri di una 
stringa, pertanto se la lunghezza della stringa ottenuta sostituendo il punto con una stringa vuota è 
diversa dalla lunghezza della stringa di base, significa che la nostra stringa ha un punto e quindi viene 
assegnato il valore di riferimento come True alla nostra funzione e il valore sarà respinto. Se invece la 
stringa ha un solo carattere, che non è parte di una delle 10 cifre permesse, allora viene rifiutata in 
questo modo: 


If Len(stringa1) = 1 And InStr("1234567890", stringa1) = 0 Then FunOK = True: Exit Function 


Il codice sopra esposto sta a indicare che: Se la lunghezza della stringa è uguale a 1 e non troviamo 
nessuna corrispondenza con le 10 cifre permesse, allora si assegna il valore True come valore di ritorno 
alla funzione e il valore verrà respinto. Dopo le prime operazioni eseguite, resta ora quello di assicurarsi 
che la stringa corrisponda a un numero secondo i nostri desideri (numeri da 0 a 9, un possibile punto 
positivo o negativo). 


Per fare questo, sarebbe conveniente utilizzare la funzione Val che restituisce il numero contenuto in 
una stringa come un valore numerico di tipo appropriato e se non viene trovato un numero restituisce 
O e non un messaggio di errore. A sfavore di questa funzione c'è che le virgole non sono riconosciute, 
infatti l'editor di VBA riconosce solo il punto come separatore numerico. Quindi dovremo trattare la 
stringa per testare la sostituzione (solo per le prove) della virgola, potenzialmente esistente, con il 
punto che ci consente di utilizzare la funzione Val con il seguente codice: 


282 


Microsoft® 


for Applications 


HW NW ") 


stringa1 = Replace(stringa1, ",", 


A questo livello, ci si baserà su questo ulteriore caratteristica della funzione Val, in cui la funzione 
interrompe la lettura della stringa in corrispondenza del primo carattere che non è una parte evidente 
di un numero. E' questo quello che ci interessa, infatti, se si tratta di una sequenza eterogenea di 
caratteri che comprende lettere nel mezzo di numeri, la lettura della funzione Val si ferma al primo 
carattere non permesso incontrato. 


Allora possiamo costruire, come sopra, il metodo per confrontare la lunghezza della stringa risultante 
con l'originale e vedere, ovviamente, la differenza. Si deve ricordare che la funzione Len si occupa solo 
di lunghezze di stringhe, poi attraverso l'utilizzo della funzione Val viene convertita in un'espressione 
numerica, e in seguito con la funzione CStr si converte un'espressione numerica in una stringa. 
Possiamo utilizzare un codice come il seguente: 


If Len(CStr(Val(stringa1)))<> Len(stringa1) Then FunOK = True 


Che consiste in: Se la lunghezza della stringa costituita dal primo carattere numerico incontrato, prima 
di un carattere nella stringa da testare, è diversa dalla lunghezza di quest'ultimo, vuol dire che c'è un 
carattere indesiderato, quindi influisce sul valore restituito, cioè True alla funzione e l'inserimento 
verrà respinto. A questo punto resta da scrivere il valore nell'apposita cella del foglio di lavoro che 
possiamo farlo usando il seguente codice: 


Private Sub Commandi1__Click() 
Cells(5, 1) = Text1.Value 


End Sub 
E otteniamo: - | ; 
ì 2 Controllo Input da tastiera 

3) 
E L Immissione Valori Numerici 
ag 
7 | 125,84 
"i 
9 | Inserire solo numeri positivi o negativi con o 
10 | senza vir 
11] 

L'allineamento predefinito a sinistra ii PET" ABISSI 

del nostro valore nella casella A5 14 

indica che i dati scritti sono stati 15 | 

considerati come una stringa, come 16) Quanido viene digitato un carattere non consentito, viene 


emesso un segnale acustico e il carattere sarà rifiutato 


conferma l'attivazione del pop-up: 17, 


Numero memorizzato come testo 
Converti in numero 


Informazioni sull'errore Si prega di notare questo comportamento, 
Ignora errore che è la causa di molti malintesi, perché se 
includiamo quella cella in un calcolo come 


Modifica nella barra della formula l 
"= 45 +A7" con un numero in A7, avremo 


Opzioni controllo errori... 
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un risultato, mentre se si utilizza la funzione SOMMA "= Somma (A5 : AZ)", il valore di A5 non sarà preso 
in considerazione, perchè, ancora una volta, è normale e segue le regole di interpretazione di Excel. 
Finora abbiamo visto un TextBox che restituisce valori di stringa, ma possiamo convertire il valore nel 
formato numerico oppure secondo i criteri della cella di destinazione usando il seguente codice: 


Private Sub scrivi1_Click() 
Cells(5, 3) = CDbl(Text1.Value) 
End Sub 


La funzione CDbl converte un'espressione (che può essere qualsiasi espressione stringa o 
un'espressione numerica) in una variabile di tipo Double, possiamo verificare scrivendo il valore nella 
cella C5 (verde) per visualizzare il risultato. 


Possiamo completare il codice per raggiungere i 
due tipi di dati da scrivere nella cella e vederne i 
risultati in questo modo: 


Controllo Input da tastiera 


Immissione Valori Numerici 


684,79 


Inserire solo numeri positivi o negativi cono 
senza virgole 


Scrivi il valore nella cella C5 


Quando viene digitato un carattere non consentito, viene 
emesso un segnale acustico e il carattere sarà rifiutato 


Private Sub scrivi1_Click() 
MsgBox "Questo tipo di dati è : " & TypeName(Text1.Value) & vbCr & vbLf _ 
& "e abbiamo il testo nella cella A5 con allineamento predefinito a sinistra." 
Worksheets("Foglio1").Cells(5, 1) = Text1.Value 


Worksheets("Foglio1").Cells(5, 3) = CDbl(Text1.Value) 

MsgBox "Questo tipo di dati è : " & TypeName(CDbl(Text1.Value)) & vbCr & vbLf _ 

& "e abbiamo un numero in virgola mobile nella cella C5 con allineamento predefinito a destra" 
End Sub 


Il fatto di avere le colonne A e C estese, mette in evidenza le differenze di allineamento a causa del 
formato, è molto meno visibile (e fuorviante) sotto le colonne di base in funzione del numero di cifre!. 
In questa ultima fase abbiamo impiegato la funzione TypeName per visualizzare nel messaggio 
informativo che restituisce se una stringa corrisponde al tipo di una variabile. A questo punto il listato 
finale è il seguente: 
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Option Explicit 

Private Sub scrivi1_Click() 
MsgBox "Questo tipo di dati è : " & TypeName(Text1.Value) & vbCr & vbLf _ 
& "e abbiamo il testo nella cella A5 con allineamento predefinito a sinistra." 
Worksheets("Foglio1").Cells(5, 1) = Text1.Value 


Worksheets("Foglio1").Cells(5, 3) = CDbl(Text1.Value) 

MsgBox "Questo tipo di dati è : " & TypeName(CDbl(Text1.Value)) & vbCr & vbLf _ 

& "e abbiamo un numero in virgola mobile nella cella C5 con allineamento predefinito a destra' 
End Sub 


Private Sub Text1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) 
Dim stringal As String 

stringal = Text1.Value 

If FunOK(stringa1) = True Then Cancel = True: Text1.Value = "": Beep: MsgBox "Input non Valido !" 
End Sub 


Private Function FunOK(stringa1 As String) As Boolean 
If stringa1 = "" Then Exit Function 
If Len(Replace(stringa1, ".", "")) <> Len(stringa1) Then FunOK = True: Exit Function 
If Len(stringa1) = 1 And InStr("1234567890", stringa1) = 0 Then FunOK = True: Exit Function 
stringa1 = Replace(stringa1, ",", ".") 
If Len(CStr(Val(stringa1))) <> Len(stringa1) Then FunOK = True 
End Function 


Private Sub Text1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
If InStr("1234567890,-", Chr(KeyAscii)) = 0 Or Text1.SelStart > 0 And Chr(KeyAscii) = "-" _ 
Or InStr(Text1.Value, ",") <> 0 And Chr(KeyAscii) = "," Then 
KeyAscii = 0: Beep 
End If 
End Sub 
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49. Le Funzioni Left - Right - Mid - Len e Replace 


In VBA una stringa si riferisce ad una sequenza di caratteri adiacenti all'interno di virgolette vale a dire, 
"Questa è un'espressione stringa racchiusa tra virgolette, in VBA." Questi caratteri sono letteralmente 
interpretati come caratteri, nel senso che questi rappresentano i personaggi stessi piuttosto che i loro 
valori numerici. Una stringa può includere lettere, numeri, spazi e punteggiatura e un'espressione 
stringa può avere come suoi elementi - una stringa di caratteri adiacenti, una funzione che restituisce 
una stringa, una variabile stringa, una stringa costante o una variante stringa. 


49.1 La Funzione LEFT 


La funzione Left in Excel può essere utilizzata sia come funzione di foglio che come una funzione VBA e 
restituisce il numero specificato di caratteri di una stringa di testo, a partire dal primo carattere più a 
sinistra. Si può utilizzare questa funzione per estrarre una sotto-stringa iniziando dalla parte sinistra di 
una stringa di testo usando la seguente sintassi LEFT (text_string, char_numbers) 


È necessario menzionare l'argomento text_string che rappresenta la stringa di testo da cui si desidera 
estrarre il numero specificato di caratteri. L'argomento char_numbers è facoltativo quando si usa come 
una funzione del foglio di lavoro, che specifica il numero di caratteri da estrarre dalla stringa di testo, 
ricorda che il valore char_numbers deve essere uguale o maggiore di zero, se è maggiore della 
lunghezza della stringa di testo, la funzione LEFT restituirà la stringa di testo integralmente e se viene 
omesso, riporterà il valore predefinito che è pari a 1. Se invece si utilizza come una funzione VBA, è 
necessario specificare gli argomenti, e se text_string contiene Null, (cioè stringa vuota) la funzione 
restituisce una stringa vuota. 


49.2 La Funzione RIGHT 


La funzione Right in Excel può essere utilizzata sia come funzione di foglio che come una funzione VBA 
e restituisce il numero specificato di caratteri di una stringa di testo, a partire dall'ultimo carattere più a 
destra. Si può utilizzare questa funzione per estrarre una sotto-stringa iniziando dalla parte destra di 
una stringa di testo usando la seguente sintassi RIGHT (text_string, char_numbers) 


È necessario inserire l'argomento text_string che rappresenta la stringa di testo da cui si desidera 
estrarre il numero specificato di caratteri. L'argomento char_numbers è facoltativo quando si usa come 
una funzione del foglio di lavoro, che specifica il numero di caratteri da estrarre dalla stringa di testo, 
tenendo presente che il valore char_numbers deve essere uguale o maggiore di zero, se è maggiore 
della lunghezza della stringa di testo, la funzione RIGHT restituirà la stringa di testo integralmente, 
mentre se viene omesso, verrà utilizzato il valore predefinito che è pari a 1. Se invece si utilizza come 
una funzione VBA, è necessario specificare gli argomenti, e se text_string contiene Null (cioè una 
stringa vuota), la funzione restituisce una stringa vuota 


49.3 La Funzione MID 


La funzione Mid può essere utilizzata sia come funzione di foglio che come una funzione VBA e 
restituisce il numero specificato di caratteri di una stringa di testo, a partire da una posizione 
specificata, cioè a partire da un numero di caratteri specificato. Si può utilizzare questa funzione per 
estrarre una sotto-stringa iniziando da qualsiasi parte di una stringa di testo usando la seguente 
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Sintassi. MID (text_string, start_number, char_numbers) 


L'argomento text_string indica la stringa di testo da cui si desidera estrarre il numero specificato di 
caratteri, mentre l'argomento start_number specifica il numero di caratteri da cui iniziare l'estrazione 
della sotto stringa, dove il primo carattere della stringa di testo deve essere indicato dal valore di 
start_number e incrementando verso destra di 1, mentre l'argomento char_numbers specifica il 
numero di caratteri da estrarre dalla stringa di testo. 


Se start_number è maggiore della lunghezza della stringa di testo, viene restituita una stringa vuota 
(lunghezza zero), mentre se è minore della lunghezza della stringa di testo ma con un valore di 
char_numbers maggiore della lunghezza della stringa di testo, la funzione MID restituirà la stringa di 
testo integralmente dalla posizione start_number fino alla fine della stringa di testo. 


Quando la funzione MID viene usata come una funzione nel foglio di lavoro e se viene specificato un 
valore negativo per char_numbers, MID restituirà il valore di errore (numero di errore), come pure 
start_number, se viene posto inferiore a 1, MID restituirà il valore di errore. Quando si utilizza come 
una funzione del foglio di lavoro, tutti gli argomenti devono essere specificati. 


Quando invece la funzione MID viene usata come una funzione VBA, l'argomento char_numbers è 
facoltativo e se viene omesso la funzione restituisce la stringa di testo per intero dalla posizione 
start_number alla fine della stringa di testo e tutti gli altri argomenti devono essere specificati, inoltre 
se text_string contiene una stringa vuota (Null), la funzione restituisce una stringa vuota. 


49.4 La Funzione LEN 


La funzione Len può essere utilizzata sia come funzione di foglio che come una funzione VBA e 
restituisce il numero di caratteri di una stringa di testo. Si utilizzare questa funzione per ottenere la 
lunghezza di una stringa di testo con questa sintassi LEN (text_string) 


ed è necessario menzionare l'argomento text_string che corrisponde alla stringa di testo di cui si 
desidera conoscerne la lunghezza espressa in numero di caratteri, si noti che vengono contati come 
caratteri anche gli spazi vuoti. Mentre usando LEN come una funzione VBA con la sintassi. 

Len (text_string) o Len (variable_name), è possibile utilizzare una stringa di testo o un nome di una 
variabile e la funzione restituisce un valore Long che rappresenta il numero di caratteri contenuti nella 
stringa o il numero di byte necessari per memorizzare una variabile. Utilizzando la funzione Len per una 
variabile di tipo Variant, VBA tratterà la variabile come una stringa e restituisce il numero di caratteri 
contenuti nella stessa. Si tenga presente che se l'argomento text_string o la variabile utilizzata contiene 
una stringa vuota (Null), anche il valore di ritorno sarà una stringa vuota. 


Esempio Funzioni LEN e MID, per determinare i caratteri che compaiono in posizioni dispari 
Sub prova3() 
Dim str As String, i As Integer 
str = ActiveSheet.Range("A2") 
Fori= 1ToLen(str) 
IfiMod2=1Then ‘Controllare le posizioni dispari 
MsgBox Mid(str, i, 1) 'Carattere di ritorno alla posizione dispari 
End If 
Next 
End Sub 
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Esempio delle funzioni Left, Right, Mid e Len 
Sub proval() 
Dim str As String, strL As String, strR As String, strM As String 


str = "Bepi Rua" 
strL = Left(str, 7) ‘Restituisce "Bepi Ru", che sono i primi 7 caratteri 
MsgBox strL 


strL = Left(str, 15) 

MsgBox strL Restituisce "Bepi Rua", tutti i caratteri, perché il valore 15 supera la lunghezza della stringa 
strR = Right(str, 7) 

MsgBox strR ‘Restituisce "epi Rua", che sono gli ultimi 7 caratteri (lo spazio è contato come un carattere) 
strR = Right(str, 15) 

MsgBox strR "Restituisce "Bepi Rua", tutti caratteri, perché il valore 15 supera la lunghezza della stringa 
strM = Mid(str, 2, 6) 

MsgBox strM 'Restituisce "epi Ru". Inizia dal 2° carattere “e” poi spec. 6 caratteri a partire da "e" 

strM = Mid(str, 2, 15) 

‘Restituisce tutti i caratteri a partire dal 2° perché i caratteri specificati più il n° di partenza 2 superano la 
‘lunghezza della stringa 

MsgBox strM 

strM = Mid(str, 2) 

MsgBox strM 'Restituisce tutti i caratteri a partire dal 2° perché l'argomento (char_numbers) è omesso 
strM = Mid(str, 12, 2) 

MsgBox strM ‘Restituisce una stringa vuota perché il n° di partenza 12 supera la lunghezza della stringa 
MsgBox Len(str) ‘Restituisce 8, la lunghezza della stringa misurata dal numero di caratteri 

MsgBox Len("Bepi Rua") 'Restituisce 8, la lunghezza della stringa misurata dal numero di caratteri 

End Sub 


Esempio della funzione Len con le variabili 
Sub prova2() 
MsgBox Len("grande") 
MsgBox Len("123456") ‘Restituisce 6 in entrambi i casi il numero di caratteri delle 2 stringhe 
MsgBox Len("Roby Baggio") ‘Restituisce 11 il numero di caratteri della stringa incluso lo spazio 
Dim vVar As Variant 
vVar = 125 
MsgBox VarType(vVar) 'restituisce 2, indicando una variabile di tip Integer 
MsgBox Len(vVar) "Restituisce 3, il numero di caratteri contenuti nella variabile 
Dim strVar As String 
strVar = "Roby Baggio" 
MsgBox VarType(strVar) ‘ritorna 8, indicando una variabile di tipo String 
MsgBox Len(strVar) 'Restituisce 11, il numero di caratteri contenuti nella variabile di tipo String 
Dim iVar As Integer 
iVar = 124 
MsgBox Len(iVar) 'Restituisce 2, il numero di byte utilizzati per memorizzare la variabile 
Dim IVar As Long 
IVar = 145 
MsgBox Len(IVar) 'Restituisce 4, il numero di byte utilizzati per memorizzare la variabile 
Dim sVar As Single 
sVar = 245.567 
MsgBox Len(sVar) 'Restituisce 4, il numero di byte utilizzati per memorizzare la variabile 
Dim dVar As Double 
dVar = 245.567 
MsgBox Len(dVar) 'Restituisce 8, il numero di byte utilizzati per memorizzare la variabile 
End Sub 
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Esempio delle funzioni LEFT, LEN e MID, per restituire le iniziali da una stringa di testo 
Sub prova4() 
Dim Snome As String, iniz As String, i As Integer 
Snome =" Maria Stuarda regina Scozia" 'Stringa di testo in cui fare la ricerca 
Fori=1ToLen(Snome) 'Se il primo carattere non è uno spazio vuoto, sarà una iniziale 
Ifi=1 Then 
If Left(Snome, i) <>" " Then 
iniz = Left(Snome, 1) & "." 
End If 
Else 
If Mid(Snome, i - 1, 1) =" " And Mid(Snome, i, 1) <>" " Then 
If Len(iniz) < 1 Then 'Perla prima iniziale 
iniz = Mid(Snome, i, 1) & "." 
Else 'Per più iniziali 
iniz = iniz& "" & Mid(Snome, i, 1) & "." Per più iniziali, aggiungere alla iniziale precedente 
End If 
End If 
End If 
Next i 
iniz = UCase(iniz) ‘Convertire tutte le iniziali in maiuscolo 
MsgBox iniz Restituisce "M. T. R. S." 
MsgBox Len(iniz) 'Restituisce 11-4 lettere, 4 punti e 3 spazi 
End Sub 


49.5 La Funzione Replace 


La funzione Replace in vba viene utilizzata per restituire una stringa in cui una sottostringa specificata 
viene sostituita, un determinato numero di volte, con un'altra sottostringa,la sintassiè la seguente: 
Replace (expression, find, replace, start, count, compare), è necessario specificare gli argomenti 

di expression, find e replace, mentre start, count e compare sono argomenti opzionali. 


L'argomento expression (espressione) è la stringa che viene sostituita da una stringa specifica, si ricordi 
che per un valore di expression con lunghezza zero viene restituita una stringa di lunghezza zero, e per 
un'espressione Null la funzione darà un errore, mentre l'argomento Find specifica la stringa che deve 
essere sostituita e se il valore di Find è una stringa di lunghezza zero, allora viene restituita una copia di 
expression. 


L'argomento Replace specifica la stringa di sostituzione), notare che la stringa di sostituzione se ha 
lunghezza zero ha l'effetto di eliminare tutte le occorrenze dell'espressione Find e 

l'argomento Start specifica la posizione (cioè il numero di caratteri) nell'espressione da cui si desidera 
iniziare la ricerca della sottostringa specificata in Find. Se questo argomento viene omesso, per 
impostazione predefinita assume il valore 1 (cioè la ricerca partirà dalla prima posizione del carattere) 
e la stringa restituita dalla funzione Replace inizia da questa posizione di partenza fino all'ultimo 
carattere della stringa di expression. 


Specificando una posizione di partenza che è maggiore della lunghezza dell'espressione, verrà restituita 
una stringa di lunghezza zero. L'argomento Count specifica il numero di sostituzioni che si desidera 
fare, omettendo di specificare questo valore per default assumerà il valore -1, che farà tutte le possibili 
sostituzioni e specificando zero per l'argomento Count avrà l'effetto di non effettuare 
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nessuna sostituzione e restituirà una copia dell'espressione. L'argomento Compare specifica il tipo di 
confronto da utilizzare per la valutazione delle sottostringhe, può essere un valore numerico o una 
costante. È possibile specificare i seguenti argomenti per l'argomento Compare: 


v. vbUseCompareOption (valore: -1) che esegue un confronto utilizzando l'impostazione di Option 
Compare 

v. vbBinaryCompare (valore: 0) esegue un confronto binario tra le stringhe basato su un 
ordinamento binario. 

v. vbTextCompare (valore: 1) esegue un confronto testuale tra le stringhe che non si basano su un 
ordinamento testuale case-sensitive 

v. vbDatabaseCompare (valore: 2) esegue un confronto basato sui dati di un database. 


Se non si specifica l'argomento Compare, il confronto viene fatto sulla base Option definito nella 
dichiarazione, cioè l'istruzione Option Compare può essere Option Compare Binary oppure Option 
Compare Text e per essere utilizzato deve essere impostato il metodo di confronto specificando 
'Option Compare Binary' o 'Option Compare Text' a livello di modulo, prima di qualsiasi altra procedura. 
Se l'Istruzione Option Compare non è specificato, il metodo di confronto testo predefinito è Binary. 


Esempio: Sostituire tutte le occorrenze di una stringa in un'espressione stringa con un'altra stringa 
Function sostituisci2(var As Variant, varF As Variant, varR As Variant, optl As Integer) As Variant 
Dim posF As Integer 
posF = InStr(var, varF) ‘Posizione della prima occorrenza di varFind, entro var 
If posF < 1 Then 'Se posF non viene trovato all'interno var 
sostituisci2 = var restituisce var 
Else 
sostituisci2 = Replace(var, varF, varR, , , optl) 'Sostituire tutte le istanze di varF 
End If 
End Function 


Sub cambia() 

Dim var As Variant, varF As Variant, varR As Variant, optl As Integer 

var = "Laura non c’è è Andata via!" 'var è la stringa all'interno della quale varF viene cercato 

varF = "a" 'varF è la stringa da cercare all'interno di var e che sarà sostituito 

varR= "?" 'varR è la stringa che sostituisce tutte le istanze di varF entro var 

optl=1 

If IsNull(var) Then 'Se var è Null, si esce 

MsgBox "Var è nullo, esco dalla procedura" 

Exit Sub 

Else 'Se var non è Null 

If IsNull(varF) Or IsNull(varR) Or varF = "" Then 'Se uno fra varF o varR è Null o varF è con lunghezza zero 
MsgBox var 'Ritorno var senza sostituzioni e esco dalla procedura 

Exit Sub 

Else 

MsgBox sostituisci2(var, varF, varR, optl) 'Se var, varF, varR non sono Null, sostituisco tutte le istanze di 
varF 

End If 

End If 

End Sub 


290 


Microsoft” 


for Applications 


Esempio: Come utilizzare la funzione Replace 
Sub sostituisci1() 
Dim str As String, strF As String, strR As String 
‘Trovare tutte le occorrenze di "a" da sostituire 
strF = "s" 
strR =" 
str = "Laura non c'è è Andata via!" 
MsgBox Len(str) 'Restituisce 27 
‘Restituisce la stringa dopo l'eliminazione di tutte le occorrenze di' a’ il valore A non viene rimosso 
str = Replace(str, strF, strR) 
MsgBox str 
MsgBox Len(str) 'Restituisce 22 
str = "Laura non c'è è Andata via!" 
MsgBox Len(str) 'Restituisce 27 
'Restituisce la stringa dopo l'eliminazione di tutte le occorrenze di' a ' notare che anche il carattere ‘A’ 
‘ viene sostituito perché il valore di confronto è vbTextCompare 
str = Replace(str, strF, strR, , , 1) 
MsgBox str 
MsgBox Len(str) 'Restituisce 21 
str = "Laura non c'è è Andata via!" 
MsgBox Len(str) 'Restituisce 27 
'Eliminazione di tutte le occorrenze di' a ' il numero di caratteri 6 è uno spazio vuoto e viene restituito. 
'La stringa restituita inizia dalla posizione di partenza fino all'ultimo carattere della stringa di espress 
str = Replace(str, strF, strR, 6) 
MsgBox str 
MsgBox Len(str) 'Restituisce 16 
str = "Laura non c'è è Andata via!" 
MsgBox Len(str) 'Restituisce 27 
'Specifica una posizione di partenza che è maggiore della lunghezza dell'espressione, 
restituirà una stringa di lunghezza zero. 
str = Replace(str, strF, strR, 28) 
MsgBox str ‘Restituisce una stringa di lunghezza zero 
MsgBox Len(str) 'restituisce 0: 
str = "Laura non c'è è Andata via!" 
MsgBox Len(str) 'Restituisce 27 
str = Replace(str, strF, strR, 8, 2) 
MsgBox str 
MsgBox Len(str) 
End Sub 
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50. Le Funzioni Split - Join - InStr e InStrRev 
50.1 La Funzione Split 


La funzione Split divide una stringa in un numero specificato di sottostringhe e usando un carattere 
separatore in essa inclusa restituisce tutte le sottostringhe di cui la stringa originale è composta in una 
matrice unidimensionale in base zero. Sintassi Split (expression, delimiter, limit, compare). 

È necessario specificare solo l'argomento expression mentre tutti gli altri argomenti sono facoltativi. 
L'argomento expression è la stringa che verrà divisa in sotto stringhe e delimitata da un carattere 
contenuto all'interno. 


L'argomento delimiter è il carattere utilizzato per delimitare e separare le sottostringhe e identifica i 
limiti delle sottostringhe, e se viene omesso, verrà assunto il carattere spazio ("") di default come 
delimitatore, mentre se è una stringa di lunghezza zero (""), la funzione restituisce l'intera espressione 
come una matrice a elemento singolo. 

L'argomento limit specifica il numero di sottostringhe da restituire e il valore di -1 indica che tutte le 
sottostringhe vengano restituite. 

L'argomento compare specifica il tipo di confronto da utilizzare per valutare le stringhe. È possibile 
specificare i seguenti argomenti per l'argomento compare: 


v. vbUseCompareOption (valore: -1) esegue un confronto utilizzando l'impostazione di Option 
Compare. 

v. vbBinaryCompare (valore: 0) esegue un confronto binario - confronti tra stringhe basato su un 
ordinamento 

v. vbTextCompare (valore: 1) esegue un confronto testuale - confronti tra stringhe che non si 
basano su un ordinamento testuale case-sensitive 

v. vbDatabaseCompare (valore: 2) esegue un confronto basato sui dati del database 


Se non si specifica l'argomento compare, il confronto viene fatto sulla base Option Compare 
definita Option Compare Statement, cioè Option Compare Binary oppure Option Compare Text e se 
l'Istruzione Option Compare non è specificata, il metodo di confronto testo predefinito è Binary. 


Esempio: Contare e ritornare le parole all'interno di una stringa 
Sub Split2() 
Dim testo1 As Variant, varE As Variant, varD As Variant, varP As Variant 
Dim i As Integer 
vare=" Hovisto un reanchelui piangeva. 
varD =" " 'Indicare lo spazio come delimitatore 
varE = Application.Trim(vareE) 
testo1 = Split(varE, varD) 
MsgBox UBound(testo1) +1 'Restituisce il numero di parole (7) nella stringa 
Fori=0 To UBound(testo1) 'mettere ogni parola della stringa su righe diverse 
Ifi=0 Then 
varP = testoll(i) 
Else 
varP = varP & vbLf & testoll(i) 
End If 
Next i 
MsgBox varP 'Restituisce ogni parola in una riga separata 
End Sub 


stringa che sarà suddivisa 
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Esempio: Estrarre le sotto stringhe utilizzando la funzione Split e riportare la lunghezza e il numero di 
occorrenze del carattere delimitatore all'interno di una stringa 

Sub split1() 

Dim test As Variant, varE As Variant, varD As Variant 

Dim i As Integer, lungE As Long, lungEx As Long 

varE = "le belle vie del paese" 'stringa che sarà suddivisa in sotto stringhe 

varD= "e" 'delimitatore della stringa 

test = Split(varE, varD) 

MsgBox UBound(test) + 1 ‘Restituisce il numero di elementi nella matrice 

MsgBox UBound(test) 'Restituisce 8, il n° di occorrenze del delimitatore all'interno della stringa 

For i= LBound(test) To UBound(test) 

MsgBox test(i) 'riporta ogni elemento della matrice in cui la stringa è divisa 

MsgBox Len(test(i)) 'ritorna la lunghezza di ogni elemento della matrice 

lungE = lungE + Len(test(i)) 'riporta la lunghezza totale di tutti gli elementi della matrice 

Next i 

lungEx = Len(varE) ‘lunghezza della stringa divisa 

If lungEx = UBound(test) * Len(varD) + lungE Then ‘calcolare la lunghezza di expression 

MsgBox "Uguale" 

Else 

MsgBox "Diverso" 

End If 

End Sub 


Esempio: Estrarre un elemento di un array, il nome del sito da un indirizzo web o il nome del file dal 
percorso completo del file. 

Sub split3() 

Dim testo1 As Variant, varE As Variant, varD As Variant 

Dim n As Integer 

varE = "E la luna bussò alle porte del sole" 'stringa da estrarre 

varD="" ‘Indicare lo spazio come delimitatore di stringhe 

testo1 = Split(varE, varD) 

n=3 'Estrarre il terzo elemento della stringa precedente 

MsgBox testo1(n - 1) ‘Restituisce luna 

MsgBox Split("22,456,7,9824,0", ",")(n - 1) ‘Estrarre il 3° elemento stringa "22,456,7,9824,0" 

varE = http://forum.wintricks.it/showthread.php?t=155252 ‘indicare sito web 

varD = "/" ‘Indicare il delimitatore 

testo1 = Split(varE, varD) 

n=3 'Estrarre il terzo elemento - il nome del sito senza il prefisso http 

MsgBox testo1(n - 1) 

vare = "C:\User\Alex\Documents\Excel\VBA\#39.xls" 'Specificare il percorso completo di un file 

varD = "\" "Indicare il delimitatore 

testo1 = Split(varE, varD) 

n= UBound(testo1) + 1 'Estrarre l'ultimo elemento - il nome del file 

MsgBox testo1(n - 1) 

'oppure 

MsgBox testo1(UBound(testo1)) 

End Sub 
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Esempio: Sostituire tutte le occorrenze di una stringa in un'espressione stringa con un'altra stringa 


Function Rep_1(var As Variant, varF As Variant, varR As Variant, opt1 As Integer) As Variant 
Dim contaF As Integer, arr As Variant 
arr = Split(var, varF, , opt1) ‘restituisce una matrice in base zero con le sottostringhe. 
If UBound(arr) < 1 Then 'Se varF non è stato trovato all'interno di var l'array avrà un solo elemento 
Rep_1= var 'Ritorno la stringa varr ed esco dalla procedura 
Exit Function 
Else 
var="" "Inizio con una stringa di lunghezza zero 
For contaF = 1 To UBound(arr) 'Ciclo per il n° di occorrenze 
var = var & arr(contaF - 1) & varR 'Aggiungere ogni elemento (tranne l'ultimo) della matrice con varR 
Next contaF 
var = var & arr(UBound(arr)) ‘Aggiungere l'ultimo elemento dell'array dopo tutte le sostituzioni 
End If 
Rep_1= var 'Ritorno la stringa finale 
End Function 


Sub cambia1() 

Dim var As Variant, varF As Variant, varR As Variant, opt1 As Integer 

var = "Il mare al tramonto" 'var è la stringa nella quale varF viene cercato e sostituito da varR 
varF = "a" 'var è la stringa all'interno della quale varF viene cercato e sostituito da varR 
varR="?" 'varR è la stringa che sostituisce tutte le istanze di varF in var 

opt1=1 'valore per eseguire il confronto di testo 


If IsNull(var) Then 'Se var è Null, si esce 

MsgBox "var è nullo, esco dalla procedura" 

Exit Sub 

Else 'Se var non è Null 

If IsNull(varF) Or IsNull(varR) Or varF = "" Then 'Se varF o varRe è Null o varF è una stringa a zero 
MsgBox var "Ritorno var senza sostituzioni ed esco dalla procedura 

Exit Sub 

Else 

MsgBox Rep_1(var, varF, varR, opt1) 'Se var, varF e varR non sono Null, eseguo la sostituzione 
End If 

End If 

End Sub 


50.2 La Funzione Join 


La funzione Join unisce le sottostringhe contenute in una matrice, e restituisce una stringa con le 
sottostringhe separate da un carattere delimitatore. Sintassi Join (sourceArray, delimiter). 


È necessario specificare l'argomento sourceArray mentre l'argomento delimiter è facoltativo, ricordare 
che sourceArray è un array che contiene le sottostringhe che devono essere unite per restituire una 
stringa e delimiter è il carattere stringa utilizzato per separare le sottostringhe, e se 

viene omesso, verrà assunto il carattere di spazio ("") di default per essere usato come delimiter, se 
invece delimiter è una stringa di lunghezza zero (""), la funzione unisce le stringhe senza delimitatore. 
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Sub join2() ‘Unire i valori delle celle in un intervallo del foglio di lavoro 
Dim rng As Range, riga1 As Integer, colonna1 As Integer, i As Integer 
Set rng = ActiveSheet.Range("A2:E4") 


Dim varC As Variant Ad A | B I <a 0: E 
For riga1= 1To rng.Rows.Count 1 Nome Città Età Sesso Stato 
For colonna1 = 1 To rng.Columns.Count - RR : = ; 

If Not rng(riga1, colonna1).Value = 2 |Gino Primo Milano 50 M Celibe 
vbNullString Then 3 |Marco Secondo Roma 42 M Sposato 
Vate =valica -RNg(Ngal 4 \Teresa Terzo Venezia 36 F Sposata 
colonna1).Value si 

End If 5 |Elena Quinto Palermo 75 F Celibe 


Next colonnal 

If varC = vbNulIString Then MsgBox "Array Vuoto": GoTo skip1 'Se l’array è vuoto 
MsgBox Mid(varC, 2) 'restituisce un record per riga 

varC="" 


skipl: 

Next rigal 

Dim varA() As Variant 'Dichiarare una matrice dinamica 

Icoll = rng.Columns.Count 

i=0 

ReDim varA(Icoll - 1) As Variant 'Ridimensionare la matrice dinamica 

For riga1 =1Torng.Rows.Count 

For Icoll= 1 To rng.Columns.Count 

If Not rng(riga1, Icoll).Value = vbNulIString Then 

varA(Icoll - 1 - i) = rng(riga1, Icoll).Value 'Per ogni vbNulIString, diminuire l'indice di matrice 
Else 

i=j+1 'Contare il numero di vbNullString 

If i= rng.Columns.Count Then MsgBox "Array Vuoto": GoTo skip2 'Se l’array è vuoto 

End If 

Next Icoll 

ReDim Preserve varA(rng.Columns.Count - 1 - i) As Variant 'Diminuire dimen. matrice vbNulIString 
MsgBox Join(varA, ",")'restituisce un record per riga 


skip2: 

ReDim varA(rng.Columns.Count - 1) As Variant 'Diminuire dimen. matrice vbNullIString 
i=0 

Next rigal 

End Sub 


Sub join1() ‘Utilizzo della funzione JOIN 

Dim arr As Variant, varJ As Variant, varC As Variant 

Dim i As Integer 

arr = Array("America", "Europa", "Africa", "Asia") 'Definire l’array 
varJ=Join(arr, "&") ‘unire sottostringhe contenute in una matrice 
MsgBox varJ ‘Ritorna la stringa unita 

Fori=0 To UBound(arr) 'Concatenare ogni elemento della matrice 
varC=varC & "&" & arr(i) 

Next i 

varC = Mid(varC, 2) 'Rimuovere la "&" prima del primo elemento 
MsgBox varC 'String ritorno dopo il concatenamento 

End Sub 
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Sub split2() ‘ Usare le funzioni Split 

Dim newT As Variant, varS As Variant, varD As Variant, varE As Variant, varJ As Variant 
Dim i As Integer 

varS = http://forum.wintricks.it/showthread.php?t=155252 'indirizzo web 

varD="/" 'delimitatore 

newT = Split(varS, varD) 'Restituisce un array 

Fori=0 To UBound(newT) ‘mettere ogni elemento della matrice su una riga separata 


Ifi=0 Then 

varE = newT(i) 'Non inserire una interruzione di linea prima del primo elemento 
Else 

varE = varE & vbLf & newT(i) 

End If 

Next i 


MsgBox varE ‘Restituisce ogni elemento su una riga separata 
varJ=Join(newT, varD) ‘restituisce l'espressione stringa originale 
MsgBox var] 

End Sub 


Sub demo1() ‘Utilizzo delle funzioni stringa 
Dim newT As Variant, varE As Variant, varSE As Variant, varD As Variant, varJ As Variant 
Dim Nfile As String, Fdir As String 
'stringa da cui si desidera estrarre un elemento 
varE = "Estrarre una sotto espressione dopo aver escluso un elemento da un'espressione" 
varD="" 
newT = Split(varE, varD) ‘restituire una matrice unidimensionale in base zero 
n=2 'Escludere un elemento assegnare il n° dell'elemento (2) a una variabile 
For i=0 To UBound(newT) 


Ifi=n-1Then 

varSE = varSE 

Else 

varSE = varSE & "," & newT(i) 

End If 

Next i 

varSE = Mid(varSE, 2) ‘Rimuovere il primo "," 
MsgBox varSE 


'Ridimensionare la matrice per ridurre gli elementi di 1 in modo da escludere l'ultimo elemento 
ReDim Preserve newT(UBound(newT) - 1) 

varJ=Join(newT, varD) & "." 'Unire tutti gli elementi dell'array tranne l'ultimo e aggiungerli alla fine 
MsgBox var) 'Stringa estratta, escluso l'ultimo elemento 

vare = "C:\User\Alex\Documents\Excel\VBA\pippo.xls" ‘indicare il percorso del file 

Nfile = Mid(vareE, InStrRev(vare, "\") + 1) 'Estrarre il nome del file, dal percorso completo del file 
MsgBox Nfile 

Fdir = Left(varE, Len(varE) - Len(Nfile)) ‘Estrarre il percorso della cartella, escluso il nome del file 
MsgBox Fdir 

End Sub 


50.3 La Funzione InStr e InStrRev 


La funzione InStr restituisce la posizione (numero di caratteri) in cui una stringa prima si verifica 
all'interno di un'altra stringa. Sintassi InStr (start, string, substring, compare) ed è necessario 
specificare gli argomenti string e substring, mentre gli argomenti start e compare sono opzionali. 
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L'argomento start specifica la posizione (numero di caratteri) all'interno della stringa da cui si desidera 
iniziare la ricerca per substring, è necessario specificare l'argomento start, se l'argomento di confronto 
è da specificare e se viene omesso, per impostazione predefinita assumerà il valore 1 (cioè la ricerca 
partirà dalla prima posizione del carattere). Specificando una posizione di partenza che è maggiore 
della lunghezza di string verrà restituito il valore 0 (zero), e se start contiene un valore Null si 
verificherà un errore. 


L'argomento string è l'espressione stringa all'interno della quale cercare substring, la funzione 
restituisce 0 se la stringa è di lunghezza zero, e restituisce Null se la stringa è Null. 

L'argomento substring è l'espressione stringa che viene cercata all'interno della stringa e la cui 
posizione verrà restituito dalla funzione che restituisce 0 se stringa non viene trovata, oppure 
restituisce il valore iniziale se la stringa è di lunghezza zero, o restituisce Null se la stringa è Null. 
L'argomento compare specifica il tipo di confronto da utilizzare per valutare le stringhe. È possibile 
specificare i seguenti argomenti per l'argomento compare: 


v. vbUseCompareOption (valore: -1) esegue un confronto utilizzando l'impostazione di Option 
Compare. 

v.. vbBinaryCompare (valore: 0) esegue un confronto binario 

v. vbTextCompare (valore: 1) esegue un confronto testuale - confronti tra stringhe che non si 
basano su un ordinamento testuale case-sensitive 

v. vbDatabaseCompare (valore: 2) esegue un confronto basato sui dati del database 


Se non si specifica l'argomento compare , il confronto viene fatto sulla base Option definito nella 
dichiarazione, ricordare che l'istruzione Option Compare (cioè Option Compare Binary o Option 
Compare Text) può essere utilizzato per impostare il metodo di confronto ed è necessario specificare 
'Option Compare Binary' o 'Option Compare Text' a livello di modulo, prima di qualsiasi altra procedura. 
Se l'Istruzione Option compare non è specificata, il metodo di confronto predefinito è Binary. 


La funzione InStrRev Restituisce la posizione della prima occorrenza di una stringa inclusa in un'altra a 
partire dalla destra della stringa con la seguente sintassi InStrRev (string, substring, start, compare) 


mentre si utilizzare la funzione InStrRev invece di InStr per cercare nella direzione opposta. È 
necessario specificare gli argomenti di string e substring, mentre gli argomenti start e compare sono 
opzionali. Se viene omesso l'argomento start, viene utilizzato -1, che significa che la ricerca inizierà 
dalla posizione dell'ultimo carattere. Tutte le altre spiegazioni e sintassi rimangono invariati rispetto 
alla funzione InStr. 


Sub InStrFunc() ‘Utilizzo della funzione InStr 
Dim str1 As String, str2 As String, str3 As Variant 
str1 = "Alice vince sempre" 
str2 = "e" 
MsgBox InStr(str1, str2) ‘restituisce 5 
str1 = "Alice vince sempre" 


str2 = "e" 
MsgBox InStr(4, str1, str2) ‘restituisce 5 
strl="" 
str2 = "e" 


MsgBox InStr(str1, str2) ‘restituisce 0 
str1 = "Alice vince sempre" 

str2 = "i" 

MsgBox InStr(str1, str2) ‘restituisce 3 
str1 = "Alice vince sempre" 

str3 = Null 
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MsgBox VarType(InStr(str1, str3)) ‘restituisce 1 
str1 = "Alice vince sempre" 

str2 ="s" 

MsgBox InStr(2, str1, str2) 'restituisce 13 
MsgBox InStr(2, str1, str2, 1) ‘restituisce 13 
End Sub 


‘Sostituire tutte le occorrenze di una stringa in un'espressione stringa con un'altra stringa 
Function cambia1(var As Variant, varF As Variant, varR As Variant) As Variant 

Dim Lfind As Integer, Pfind As Integer 

Pfind = InStr(var, varF) ‘Posizione della prima occorrenza di varF, in var 

Lfind = Len(varF) ‘Lunghezza varF, che sarà sostituito con varR 

RPlen = Len(varR) 'Lunghezza RPlen, che sarà sostituito da varF 

If Pfind < 1 Then 'Se varF non viene trovato all'interno var 

cambia1 = var 'si restituisce la stringa var stringa e si esce dalla procedura 

Exit Function 

Else 'Se varF viene trovato all'interno di var 

Do 

var = Left(var, Pfind - 1) & varR & Mid(var, Pfind + Lfind) ‘Sostituire varF con varR in var 
'Posizione della prima occorrenza di varF all'interno di var aggiornato, iniziando 

’ la ricerca dal primo carattere dopo l'ultima sostituzione 

Pfind = InStr(Pfind + RPlen, var, varF) 

If Pfind = 0 Then Exit Do 'Se varF non è stato trovato all'interno aggiornato di var, si esce dal ciclo 
Loop 

End If 

cambia1 = var "Ritorno stringa finale 

End Function 


Sub cambia2() 

Dim var As Variant, varF As Variant, varR As Variant 

var = "Alice vince sempre" 'var è la stringa nella quale varF viene cercato e sostituito da varR 
varF = "e" 'varF è la stringa da cercare all'interno di var e che sarà sostituito da varR 
varR="?" 'varR è la stringa che sostituisce tutte le istanze di varF contenute in var 

If IsNull(var) Then 'Se var è Null, si esce 

MsgBox "var è Null, esco dalla procedura" 

Exit Sub 

Else 'Se var non è Null 

'Se uno tra varF o varR sono Null o varF è una stringa di lunghezza zero 

If IsNull(varF) Or IsNull(varR) Or varF = "" Then 

MsgBox var "Ritorno var senza sostituzioni e si esce dalla procedura 

Exit Sub 

Else 

'Se nessuno tra var, varF e varR sono Null, esegue la funzione e sostituisco tutte le istanze di varF 
MsgBox cambia1(var, varF, varR) 

End If 

End If 

End Sub 
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51. Le Funzioni Empty - ZLS - Null - Nothing e Missing 


In Excel VBA spesso ci riferiamo a una variabile Empty (vuota), a una ZLS (stringa di lunghezza zero) o a 
una stringa nulla (vbNullIString), a un valore Null o a un argomento mancante (Missing) o utilizzando la 
parola chiave Nothing (Niente) con una variabile oggetto. E 'importante differenziare e comprendere 
questi termini ed espressioni mentre vengono utilizzati nel codice VBA. Vediamo ora di comprendere 
come utilizzare la funzione VarType per determinare il sottotipo di una variabile, utilizzando le 
funzioni /sEmpty e IsNull per verificare la presenza di valori vuoti, e la funzione /sMissing per verificare 
se gli argomenti opzionali sono stati elencati nella procedura. 


51.1 La Funzione Empty 


Quando si dichiara una variabile utilizzando un'istruzione Dim, si sta riservando la parte sufficiente di 
memoria per alloccare la variabile nel sistema, (cioè 2 byte per una variabile booleana o Integer, 4 byte 
per una variabile Long, e così via), e inoltre ci si deve accertare che le informazioni che saranno 
memorizzate nella variabile abbiano un intervallo consentito (True o False per una variabile booleana, 
un numero intero compreso tra -32.768 e 32.767 per una variabile Integer, un numero intero 
compreso tra -2.147.483.648 a 2.147.483.647 per una variabile Long, e così via ). 


Quando in una dichiarazione di una variabile non si specifica il tipo di dati, oppure se non viene 
dichiarata, assumerà per impostazione predefinita la forma di tipo Variant e può contenere qualsiasi 
tipo di dati (stringa, data, ora, booleano o valori numerici) e sarà in grado di convertire 
automaticamente i valori che contiene. Tuttavia, lo svantaggio di questa assegnazione è che deve 
essere riservata più memoria di quanto richiesto (almeno 16 byte), oltre al fatto che in caso di un 
errore di digitazione di un nome di variabile non saremmo in grado di riconoscerlo, vale a dire che è 
possibile digitare rowNumbre invece di rowNumber. 


Quando si esegue una macro, tutte le variabili vengono inizializzate ad un valore predefinito e Il valore 
di default iniziale per una variabile numerica è zero, per una stringa di lunghezza variabile è una 
lunghezza zero o stringa vuota (""), una stringa di lunghezza fissa viene inizializzata con il codice ASCII O, 
o Chr (0), una variabile oggetto su Nothing e una variabile Variant viene inizializzata a vuoto. Nel 
contesto numerico, una variabile vuota indica uno zero, mentre in un contesto di una variabile stringa 
vuota è una stringa di lunghezza zero ("") che è indicata anche come una stringa nulla. Tuttavia, si 
consiglia di specificare esplicitamente un valore iniziale per una variabile, invece di basarsi sul suo 
valore iniziale di default. 


51.2 La Funzione IsEmpty 


Si può utilizzare la funzione IsEmpty per controllare se una variabile è stata inizializzata, in questo caso 
la funzione restituisce un valore booleano, restituisce True per una variabile non inizializzata o se una 
variabile è impostata in modo esplicito a Empty, altrimenti la funzione restituisce False. La sintassi è la 
seguente: /sEmpty (espressione), dove espressione è una variabile di tipo Variant che si desidera 
controllare. 
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51.3 La Funzione ZLS o vbNullString 


ZLS significa stringa di lunghezza zero (""), ed è indicata anche come una stringa nulla, e ha una 
lunghezza pari a zero (0). Per tutti gli scopi pratici si può utilizzare la costante vbNulIString che è 
equivalente a una stringa di lunghezza zero (""), perché VBA interpreta in un modo simile, anche se 
entrambi non sono in realtà la stessa cosa, in quanto una stringa di lunghezza zero significa in realtà la 
creazione di una stringa senza caratteri, mentre vbNulIString è una costante utilizzata per un puntatore 
nullo il che significa che nessuna stringa viene creata ed è anche più efficiente o più veloce da eseguire 
rispetto a ZLS. È possibile usare "" o vbNulIString in alternativa nel codice ed entrambi si comportano 
allo stesso modo, si noti che non vi è alcuna parola chiave Empty in VBA, ma possiamo fare riferimento 
a "celle vuote "o "celle vuote nel foglio di calcolo Excel”. 


51.4 La Funzione VarType 


Si utilizza la funzione VarType per determinare il tipo di variabile con la seguente sintassi. 

VarType (nome_ variabile) e restituisce un intero che indica il sottotipo della variabile. L'espressione 
nome_variabile può essere qualsiasi variabile, tranne un tipo di dati definito dall'utente utilizzando 
l'istruzione Type. Esempi di valori di ritorno sono: 


costante VarType - vbEmpty, non inizializzato di default) 
costante VarType - vbNull, non contiene dati validi) 
costante VarType - vbInteger, Integer) 

costante VarType - vbLong, Intero long), e così via. 


Il valore 0 
il valore 1 
il valore 2 
il valore 3 


4 A 


Le costanti VarType possono essere utilizzate ovunque nel codice al posto dei valori effettivi. 


Sub Prova2 () ‘Test per variabili vuote 

Dim var1 As Variant 

MsgBox VarType (var1) 'variabile non inizializzata, restituisce 0, che indica una variabile vuota 
MsgBox IsEmpty (var1) ‘restituisce True, indicando una variabile vuota 

var1= "Ciao" 'Inizializzare la variabile come stringa 

MsgBox VarType (var1) ‘restituisce 8, che indica una variabile Stringa 

MsgBox IsEmpty (var1) 'restituisce False, che indica che la variabile non è vuota 

varl = Empty 'si imposta la variabile vuota 

MsgBox VarType (var1) ‘restituisce 0, che indica variabile vuota 

MsgBox IsEmpty (var1) ‘restituisce True, che indica variabile vuota 

MsgBox IsEmpty (ActiveCell) 'Restituisce True per una cella del foglio di lavoro vuota, altrimenti False 
End Sub 


Sub Prova1 () ‘Rappresentare una variabile vuota: 

MsgBox VarType (var1) 'var1 non è stata dichiarata, quindi è di tipo Variant e restituisce 0 
MsgBox IsEmpty (var1) ‘restituisce True, che indica una variabile vuota 

MsgBox IsNull (var1) 'restituisce False, è una variabile vuota, non una variabile Null 

If var1 = 0 Then 

MsgBox "Variabile vuota rappresentata come Zero" 


End If 

If var1 = "" Then 

MsgBox "Variabile vuota rappresentata come Zero-Length (Null) String" 
End If 

End Sub 
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Sub Prova3 () ‘: Inizializzare una variabile Variant 

Dim var1 As Variant 

var1="" 'variabile inizializzata con una stringa di lunghezza zero ("") 

MsgBox IsEmpty (var1) 'restituisce False, che indica che la variabile non è vuota 
MsgBox VarType (var1) ‘restituisce 8, che indica una variabile Stringa 


If var1 = "" Then 

MsgBox "Il valore della variabile è una stringa di lunghezza zero" 

Else 

MsgBox "Il valore della variabile NON è una stringa di lunghezza zero" 
End If 


If var1 = 0 Then 

MsgBox "Il valore della variabile è zero" 
Else 

MsgBox "Il valore della variabile non è zero" 
End If 

End Sub 


Sub Prova4 () ‘Controllare una stringa di lunghezza zero 
Dim var1 As Variant 
MsgBox VarType (var1)’ ‘variabile non inizializzata, restituisce 0, che indica una variabile vuota 


If var1 = "" Then 
MsgBox "True" 
End If 


If var1 = vbNulIString Then 
MsgBox "True" 

End If 

If Len (var1) = 0 Then 
MsgBox "True" 

End If 

End Sub 


51.5 La Funzione Null 


In VBA, la parola chiave Null viene utilizzata per indicare che una variabile non contiene dati validi e il 
valore che indica una variabile che non contiene dati validi il risultato è Null se: 


v Si assegna esplicitamente Null a una variabile 
Se si eseguono operazioni tra espressioni che contengono la parola chiave Null 


La parola chiave Null viene utilizzata per variabili di tipo Variant, e solo una variabile Variant può essere 
Null, mentre variabili di qualsiasi altro tipo rimanderanno un errore, inoltre una variabile Null non è da 
intendere come una stringa di lunghezza zero (""), e non è vuota, ma indica una variabile non ancora 
inizializzata. Se si tenta di ottenere il valore di una variabile Null o un'espressione che è Null, si otterrà 
un errore 94 di Utilizzo non valido di Null. 


51.6 La Funzione IsNull 


La funzione IsNull restituisce un valore booleano, dove True rappresenta un'espressione che Null (non 
contiene dati validi), mentre False indica un'espressione che contiene dati validi. La sintassiè la 
seguente: /sNull (espressione) e l'argomento espressione è una variante che contiene un valore 
numerico o stringa. 
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Sub ProvaS () ‘Variabile Integer 

Dim intVar As Integer ‘nessun valore iniziale è assegnato alla variabile Integer 
MsgBox IsNull (intVar) 'Restituisce False (intVar non è Null o Empty) 

MsgBox VarType (intVar) 'restituisce 2, indicando il tipo Integer 

If intVar = 0 Then 

MsgBox "Il valore della variabile è zero" 

Else 

MsgBox "Il valore della variabile non è zero" 

End If 

End Sub 


Sub Prova6 () ‘Valutare se la variabile è Empty o Null 

Dim var1 As Variant 

MsgBox IsNull (var1) ‘restituisce False, var1 non è Null, ma è vuota 

MsgBox VarType (var1) 'la variabile non è inizializzata e restituisce 0, che indica una variabile vuota 
If var1=0 And var1= vbNullIString Then ‘restituisce il messaggio perché var1 è una variabile vuota 
MsgBox "Variabile vuota rappresentata sia come zero (0) che come lunghezza zero (Null) String" 
End If 

var1= vbNullString 'la variabile viene inizializzata su una stringa di lunghezza zero ("") o vbNulIString 
MsgBox IsNull (var1) ‘restituisce False, vari non è una variabile Null 

MsgBox VarType (var1) ‘restituisce 8, che indica una variabile stringa 

var1 = Null 'si assegna Null alla variabile 

MsgBox IsNull (var1) ‘restituisce True, una variabile Null, non contenente dati validi 

MsgBox VarType (var1) 'restituisce 1, indicando una variabile Null 

varl = 12 ‘assegnare dei dati validi alla variabile 

MsgBox IsNull (var1) ‘restituisce False, per una variabile che contiene dati validi 

MsgBox VarType (var1) 'restituisce 2, indicando una variabile integer 

MsgBox IsNull ("Ciao") 'restituisce False, per un'espressione contenente dati validi 

End Sub 


Sub Prova7 () ‘Controllare una variabile Null 

var1 = Null ‘si assegna Null alla variabile 

MsgBox VarType (var1) ‘restituisce 1, indicando una variabile NUII 

If VarType (var1) = vbNull Then ‘restituisce il messaggio, indicando una variabile Null 
MsgBox "Variabile Null" 

End If 

var2 = Null +2 ‘un'espressione contenente Null restituisce ancora Null 

MsgBox VarType (var2) ‘restituisce 1, indicando una variabile Null 

End Sub 


Sub Prova8 () ‘Controllare una cella del foglio di lavoro 

Dim var1 As Variant 

MsgBox vbNullString = restituisce True 

MsgBox ActiveCell.Value = "" 'se ActiveCell è vuota restituisce True 
MsgBox ActiveCell.Value = vbNulIString 

MsgBox ActiveCell.Value = 0 

MsgBox IsEmpty (ActiveCell.Value) 

varl = ActiveCell.Value ‘assegnare il valore della cella attiva alla variabile 
MsgBox IsEmpty (var1) ‘restituisce True 

MsgBox var1 = vbNullString 

MsgBox var1 = "" 

MsgBox var1 = 0 

MsgBox VarType (var1) = vbNull ‘restituisce False 

MsgBox VarType (var1) ‘restituisce 0, che indica una variabile vuota 
MsgBox ActiveCell.Value = "" ‘se si immette "" nella cella attiva restituisce True 
MsgBox ActiveCell.Value = vbNulIString 
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MsgBox ActiveCell.Value = 0 ‘restituisce False 
MsgBox IsEmpty (ActiveCell.Value) 
End Sub 


51.7 La Funzione Nothing 


L'assegnazione della parola chiave Nothing a una variabile oggetto dissocia la variabile stessa da un 
oggetto reale e questa assegnazione avviene utilizzando l'istruzione Set. Abbiamo visto in precedenza 
che ogni assegnazione eseguita a delle variabili vengono utilizzate delle risorse di sistema per allocare 
in memoria la variabile. Le risorse di sistema e di memoria vengono rilasciati solo dopo aver assegnato 
Nothing tramite l'istruzione Set a tutte le variabili oggetto che di dissociare queste variabili dall'oggetto 
reale, o quando tutte le variabili oggetto vengono distrutte. Si consiglia di impostare esplicitamente 
tutte le variabili oggetto a Nothing al termine della procedura o anche prima durante l'esecuzione, 
quando il codice ha finito di usarle, e questo rilascerà memoria allocata per queste variabili. 


Per controllare se un oggetto è stato assegnato o impostato, si utilizza la parola chiave IsNothing, vale a 
dire usando un'espressione come la seguente: /f object_variable Is Nothing 


Sub Prova9() ‘Utilizzare la parola chiave Nothing con una variabile oggetto 

Dim OVar As Object 

'restituisce True, perché non è stato assegnato un oggetto reale alla variabile oggetto 
MsgBox OVar Is Nothing 

Set OVar = ActiveSheet 

'restituisce False, perché è stato assegnato un oggetto reale (foglio) alla variabile 
MsgBox OVar Is Nothing 

Set OVar = Nothing 

'restituisce "La variabile non è associata a un oggetto reale", perché abbiamo dissociato 
'la variabile oggetto da un oggetto reale 

If OVar Is Nothing Then 

MsgBox "La variabile non è associata a un oggetto reale" 

Else 

MsgBox "Un oggetto reale è assegnato a una variabile Object" 

End If 

End Sub 


51.8 La funzione Missing 


Quando un valore esterno deve essere utilizzato da una procedura per eseguire un'azione, si passa alla 
procedura da variabile che sono chiamati argomenti. Un argomento è il valore fornito dal codice 
chiamante a una procedura quando viene chiamato e quando il set di parentesi, dopo il nome della 
procedura nella dichiarazione Sub o Function, è vuota, si tratta di un caso in cui la procedura non riceve 
argomenti. Tuttavia, quando gli argomenti sono passati a una procedura da altre procedure, allora 
questi sono elencati o dichiarati tra le parentesi. 


Gli argomenti possono essere specificati come facoltativi, utilizzando la parola chiave Optional prima 
dell'argomento alla sua sinistra e quando si specifica un argomento come opzionale, tutti gli altri 
argomenti successivi posti alla destra dell'argomento sono specificati come Optional. Si noti che 
specificando la parola chiave Optional rende un argomento opzionale altrimenti sarà richiesto 
l'argomento. 
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L'argomento opzionale dovrebbe essere (anche se non è necessario) dichiarato come tipo di dati 
Variant per consentire l'uso della funzione IsMissing che funziona solo quando viene utilizzato con le 
variabili dichiarate come Variant. La funzione IsMissing viene utilizzata per determinare se l'argomento 
opzionale è stato passato alla procedura o meno in modo che ci si può regolare di conseguenza nel 
codice senza restituire un errore. Se l'argomento opzionale non è dichiarato come 


Variant, la funzione IsMissing non funziona, e all'argomento opzionale verrà assegnato il valore 
predefinito per il tipo di dati che è 0 per le variabili di tipo numerico (cioè Integer, Double, ecc) e 
Nothing (un riferimento nullo) per le variabili String o variabili di tipo Object. 


La funzione IsMissing viene utilizzata con questa sintassi: /sMissing (argname) e restituisce un valore 
booleano, True se non viene passato nessun valore per l'argomento opzionale, e False se un valore è 
stato passato. Se la funzione IsMissing restituisce True per un argomento, utilizzando l'argomento 
mancante nel codice causerà un errore, e quindi utilizzando questa funzione aiuterà a regolare il codice 
di conseguenza. 


Esempio: Utilizzo della funzione IsMissing per verificare se un argomento è mancante 
Function NomeC(Pnome As String, Optional Snome As Variant) As String 
'La dichiarazione della procedura contiene due argomenti, il secondo argomento è specificato come 
‘Optional. Dichiarare l'argomento opzionale come tipo di dati Variant consentirà l'utilizzo della ‘funzione 
IsMissing. 
If IsMissing(Snome) Then 
NomecC = Pnome 
Else 
Nomec = Pnome & 
End If 
End Function 


& Snome 


Sub Pas_Nome() 

Dim nome1 As String 

nome1 = InputBox("Inserire il nome") 

'Specificando solo il primo argomento e omettere il secondo argomento che è facoltativo 
MsgBox NomeC(nome1) 

End Sub 
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52. Lavorare con stringhe di testo 


Un tipo di variabile che abbiamo toccato marginalmente in questo corso è il tipo String che come 
suggerisce il suo nome, viene utilizzato per contenere le stringhe di testo. Questo tipo di variabile viene 
utilizzata moltissimo, quindi vale la pena di approfondire questo argomento. Per impostare una 
variabile per contenere il testo è sufficiente usare la parola chiave Dim seguita dal nome della variabile 
e dalla notazione As String in questo modo: Dim MysString As String, mentre per memorizzare il testo 
all'interno della variabile è necessario circondarlo con virgolette doppie così: MyString = "Testo" 


Si tenga presente che anche se si inseriscono dei numeri racchiusi dalle virgolette vengono trattati 
come testo e non come numeri: MyString = "25", in questo modo viene assegnato il valore 25 come 
testo, e non memorizza nella variabile il numero 25. È inoltre possibile inserire il testo in una cella del 
foglio di calcolo in questo modo: 


Dim MysString As String 
MysString = "Testo" 
ActiveCell. Value = MyString 


Oppure si può ottenere il testo dalla cella del foglio di calcolo: 


Dim MyString As String 
MysString = ActiveCell. Value 


Molto spesso, però, è necessario fare delle elaborazioni con il testo che si ottiene da una cella di un 
foglio di calcolo. Ad esempio, potrebbe essere necessario prendere un nome completo da una cella e 
posizionare il primo nome in un'altra cella e il cognome in un’altra. Per fare le cose in questo modo, è 
necessario sapere come utilizzare le funzioni stringa incorporate di Excel VBA. 


Mi) Alcune funzioni elencate in questo articolo sono già state trattate in questo corso, vengono 
riprese in questo contesto per mostrarne l’uso con altre funzioni VBA 


52.1 Le Funzioni LCase e UCase 


Le funzioni Ucase e Lcase vengono utilizzate per modificare le lettere in caratteri minuscoli o maiuscoli, 
dove Ucase converte tutti i caratteri in lettere maiuscole, mentre Lcase converte in lettere minuscole. 
Vediamo come funzionano con un esempio pratico, creiamo una nuova cartella di lavoro vuota e 
inseriamo alcune voci nelle celle A1, B1 e C1 come si vede in figura, e inseriamo un nome nella cella A2 


1 Testo 
2 |Nelson Mandela 


A questo punto entriamo nell’editor VBA e inseriamo una routine in un Modulo e scriviamo del codice 
per leggere il valore presente nella cella A2 come il seguente 
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Dim Nome As String 
Nome = Range ("A2"). Value 


Con questo codice abbiamo creato una variabile denominata Nome, che abbiamo dichiarato come 
String e per inserire un valore in questa variabile, abbiamo usato l'enunciato Range ("A2"). Value. Per 
convertire il testo in minuscolo, è necessario solo il comando: LCase (Testo_da_convertire) 


Qualunque cosa si sta cercando di convertire va posto tra le parentesi tonde della funzione LCase e il 
testo che si sta tentando di convertire può essere immesso direttamente, circondato da virgolette, o in 
una variabile che contiene una stringa di testo. Se vogliamo inserire il testo presente nella cella A2 
convertito nella cella B2, tutto quello che dobbiamo fare è scrivere un codice come il seguente: 

Range ("A2"). Offset (, 1) Value = LCase (Nome) 


Con Range ("A2"). Offset (, 1) ci si sposta di una colonna a destra della cella A2, e poi accediamo alla 
proprietà Value della cella stessa e a destra del segno di uguale inseriamo la funzione LCase col nome 
della variabile che conterrà il testo da convertire e il codice sarà simile a questo 


Sub Prova1 () 

Dim Nome As String 

Nome = Range ("A2"). Value 
Range("A2").Offset(, 1).Value = LCase(Nome) 
End Sub 


Se eseguiamo questa routine possiamo vedere nel foglio la conversione del testo che appare in questo 
modo 


Nelson Mandela nelson mandela 


Al tempo stesso se vogliamo convertire il nome in maiuscolo il codice è molto simile, basta solo 
cambiare il nome della funzione in questo modo: Range("A2").Offset(, 2).Value = UCase(Nome) 


Se guardiamo questa nuova riga di codice, notiamo che sono cambiate solo due cose, il valore di Offset, 
in quanto abbiamo un 2 invece di 1, questo perché ci si sposta di due colonne a destra della cella A2 e 
la funzione che converte in maiuscolo è UCase. Se si aggiunge questa la linea al codice e si manda in 
esecuzione la routine si ottiene 


Testo — 

2 \Nelson Mandela 
3] 

Così ora abbiamo trasformato il valore della cella A2 a caratteri minuscoli e maiuscoli. Si noti che il 

nome in A2, Nelson Mandela, è scritto con la prima lettera maiuscola, in gergo si capitalizza la prima 


| Jcase. 
nelson mandela NELSON MANDELA 


lettera di ogni parola. Excel dispone della funzione di conversione, e usando VBA possiamo usare la 
funzione chiamata Proper che permette la capitalizzazione di una stringa utilizzando il seguente codice: 


Dim Nome As String 
Nome = "nelson mandela" 
Range ("A2"). Offset (, 3) .Value = Application.WorksheetFunction.Proper (Nome) 
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2 Nelson Mandela nelson mandela NELSON MANDELA Nelson Mandela 
3 | 


1 Testo. 


Il codice che converte la prima lettera in maiuscolo è: Application. WorksheetFunction.Proper (Nome) 
Si consideri che Application è un oggetto di livello superiore, ovvero l'intero Excel, 

mentre WorksheetFunction viene utilizzato per accedere alla funzione di Excel, mentre tra le parentesi 
tonde di Proper, si digita la variabile che si sta tentando di convertire. Così come la digitazione di un 
nome di variabile, è possibile digitare il testo direttamente circondato da virgolette. 


52.2 Le Funzioni Trim e Len 


La funzione Trim viene utilizzata per tagliare lo spazio bianco indesiderato nel testo, quindi, se si ha la 
seguente stringa: " Un testo" usando Trim si eliminerebbero gli spazi e rimane "Un testo", mentre 
invece la funzione Len viene utilizzata per ottenere il numero di caratteri di una stringa. Se si inserisce il 
codice seguente in una routine: 


Dim Nome As String 

Dim LNome As Integer 
Nome =" Nelson Mandela 
LNome = Len (Nome) 
MsgBox Lnome 


" 


Abbiamo creato due variabili, una chiamata Nome e una chiamata LNome e quest’ultima è stata 
dichiarata come Integer. Nella variabile Nome abbiamo archiviato il testo " Nelson Mandela ", ma 
abbiamo due spazi vuoti alla sinistra del nome e due spazi vuoti a destra, mentre la quarta linea è 
questa: LNome = Len (Nome) 


In questa riga di codice stiamo utilizzando la funzione Len e tra le parentesi tonde abbiamo la variabile 
Nome. La funzione Len conterà quanti caratteri sono presenti nel testo che abbiamo memorizzato 
all'interno della variabile Nome. Quando VBA ha eseguito questo calcolo lo memorizza nella variabile 
denominata LNome. Poiché la funzione Len conta i caratteri, il valore restituito sarà un numero intero. 
Una volta eseguito il codice verrà mostrato in una finestra il numero 18, tuttavia, il nome Nelson 
Mandela è lungo 14 caratteri, la finestra di messaggio visualizza 18 perché ha contato gli spazi extra 
all'inizio e alla fine della stringa. Per rimuovere lo spazio, si deve utilizzare la funzione Trim in questo 
modo: Nome = Trim (" Nelson Mandela ") 


Il testo o la variabile che si sta cercando di tagliare va tra le parentesi tonde alla destra della funzione e 


VBA quindi rimuovere qualsiasi spazio bianco dalla parte anteriore e dalla fine della stringa. Se si 
esegue di nuovo il codice la finestra di messaggio visualizza il valore di 14. 


52.3 La funzione Space 


A volte si rende necessario inserire uno spazio vuoto prima o dopo una stringa, per fare questo si usa la 
funzione space inserendo il numero di spazi tra le parentesi tonde. Ecco un codice per illustrare la 
funzione: 
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Dim Nome As String 

Nome = "Nelson Mandela" 
MsgBox Len(Nome) 

Nome = Space(5) & Nome 
MsgBox Len(Nome) 


Eseguendo il codice viene visualizzata una finestra di messaggio che riporta il valore 14, che è il numero 
di caratteri che sono nel nome Nelson Mandela, mentre la seconda finestra di messaggio visualizza un 
valore di 19, che contiene i 14 caratteri originali, più i 5 aggiunti all'inizio delnome. Avremmo potuto 
aggiungere 5 spazi alla fine del nome in questo modo: Nome = Nome & Space (5). Non deve trarre in 
inganno l'uso di due volte della variabile Name, infatti se analizziamo la riga di codice: Nome & Space 


(5) 


Questa ci dice: "Prendi tutto ciò che è presente nella variabile denominata Nome e aggiungi 5 spazi."(Il 
simbolo & viene utilizzato per concatenare) e una volta che VBA ha concatenato il testo e lo spazio, si 
deve memorizzare da qualche parte, e il luogo in cui sarà memorizzato è alla sinistra del segno uguale. 
A sinistra del segno di uguale, abbiamo di nuovo la variabile Nome, pertanto qualunque sia stato il 
valore in precedenza della variabile sarà sostituito dal valore dalla destra del segno di uguale. 


52.4 La Funzione Replace 


Abbiamo già visto che la funzione Replace permette di sostituire il testo in una stringa con 
qualcos'altro. Supponiamo, per esempio, di avere una parola errata nella cella AS. È possibile utilizzare 
replace per modificare le lettere non corrette con quelle corrette. 

È possibile utilizzare il foglio di lavoro per provarlo, aggiungendo due voci nelle celle A4 e B4 e digitare 
il titolo Originale nella cella A4 e la voce Sostituisci nella cella B4. Ora se inseriamo all'interno della cella 
AS la parola errata Micrasaft, il foglio di calcolo dovrebbe apparire così: 


| A B | C 
E | Testo Lcase Ucase 
2 \Nelson Mandela nelson mandela NELSON MANDELA 
3 
4 Originale Sostituito 
5 |Micrasaft 
6 


Per utilizzare la funzione Replace, sono necessari almeno tre argomenti tra la parentesi tonde: 
Replace( string_to_search, string_to_replace, replace_with ) 


La prima cosa che serve è una stringa di testo da ricercare, poi si specifica il carattere o i caratteri che si 
vuole sostituire e infino il nuovo personaggio o personaggi. Con la funzione Replace si hanno anche tre 
optional che è possibile specificare. Queste sono: start, count, compare. | parametri opzionali vanno 
dopo il terzo elemento in sostituzione, con ciascuno dei quali è separato da una virgola: 


Replace( string_to_search, string_to_replace, replace_with, start, count, compare ) 
Il parametro Start rappresenta il carattere della stringa in cui si desidera avviare la ricerca, il valore di 


default è il carattere 1, che è il primo carattere della stringa. Se si vuole iniziare da una posizione nella 
stringa diverso dal primo carattere, quindi è necessario digitare il numero di partenza. 
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Il parametro count è il numero di occorrenze da sostituire, il default è di sostituire ogni occorrenza 
presente in replace_with . Se si desidera solo per sostituire, le prime due ricorrenze quindi si digita il 
numero 2. 

Il parametro compare ha tre opzioni: vbBinaryCompare, vbTextCompare, vbDatabaseCompare, ma 
non preoccupatevi di confrontare, in quanto viene utilizzato raramente. A titolo di esempio, 
aggiungiamo una nuova routine con il seguente codice 


Dim OTesto As String 

Dim CTesto As String 

OTesto = Range("A5").Value 

CTesto = Replace(OTesto, "a", "0") 
Range("A5").Offset(, 1).Value = CTesto 


Come si può vedere abbiamo due variabili stringa, Otesto e Ctesto, il valore per la variabile Otesto 
viene ricavato dalla cella A5 sul foglio di calcolo. Abbiamo poi abbiamo questa riga di codice: 

CTesto = Replace (OTesto, "a", "0"), in cui abbiamo la funzione Replace a destra del segno di uguale, 
per cui la prima voce tra le parentesi tonde del Replace è il nome della variabile Otesto e rappresenta il 
testo da ricercare. In seguito viene elencato il carattere che non è corretto (la lettera " a "), infine, 
abbiamo bisogno del nuovo testo che vogliamo nella stringa, che è la lettera " o ". Tutti e tre gli 
elementi sono separati da virgole. La riga finale inserisce il testo corretto nella cella B5 del foglio di 
calcolo. Eseguendo il codice il foglio di calcolo dovrebbe sembrare come questo: 


| A B | C 
1 | Testo Lcase Ucase 
2 \Nelson Mandela nelson mandela NELSON MANDELA 
3 
4 Originale Sostituito 
5 |Micrasaft Microsoft 
6 | 


È possibile sostituire più di un carattere, se è necessario. Il seguente codice sostituisce l'errata Microsft 
con Microsoft: Ctesto = Replace(Otesto, "sft", "soft") 

È possibile sostituire spazi nel testo digitando due virgolette. La prima serie di virgolette avrà uno 
spazio tra loro, mentre la seconda serie non ha spazio. Ad esempio: 


H HW "I) 


Ctesto = Replace("Microsoft","", 


Questa volta, la parola Microsoft ha uno spazio dopo ogni lettera, se vogliamo rimuovere gli spazi, il 
secondo parametro della funzione Replace è di due virgolette con uno spazio tra di loro, mentre il terzo 
parametro è di due virgolette senza spazio tra loro. Due doppi apici insieme significano "nessun 
carattere". 


52.5 Le Funzioni InStr, InStrRev, StrReverse 


InStr è l'abbreviazione di inString, e questa funzione stringa viene utilizzata per la ricerca di una stringa 
all'interno di un'altra. Necessita di almeno due elementi tra le parentesi tonde della funzione InStr: il 
testo da cercare, e ciò che si desidera trovare. VBA poi vi darà un intero in cambio. Questo numero sarà 
O se la stringa non viene trovata, mentre se la stringa viene trovata, allora si ottiene la posizione di 
inizio della stringa di ricerca. Ecco un esempio per provare: 


309 


Microsoft” 


for Applications 


Dim Email As String 

Dim Posizione As Integer 

Email = "mia_email@prova.com" 
Posizione = InStr(Email, "@") 
MsgBox Posizione 


Abbiamo dichiarato due variabili, una è una variabile Stringa che contiene un indirizzo email, e l'altra è 
un intero chiamato posizione. La linea di codice della funzione InStr linea è questa: 
Posizione = InStr(Email, "@") 


La prima voce tra le parentesi tonde è la variabile email, mentre il secondo elemento è quello che 
vogliamo cercare, cioè la chiocciolina dell'indirizzo di posta elettronica. Se il simbolo @ non è nella 
variabile Email, VBA colloca uno 0 nella variabile Posizione. Quando si esegue il codice verrà visualizzato 
una finestra di messaggio con il numero 10, in quanto il simbolo @ è il decimo carattere della stringa 
indirizzo email. Ora se NON inseriamo il simbolo @ nella stringa della E-mail: 

Email = "mia_emailprova.com" 


Eseguendo il codice la finestra di messaggio visualizza il valore 0, è possibile utilizzare questo risultato 
per un test di base sugli indirizzi di posta elettronica con questo codice: 


Dim Email As String 

Dim Posizione As Integer 

Email = "mia_emailprova.com" 
Posizione = InStr(Email, "@") 


If Posizione = 0 Then 

MsgBox "Non hai inserito un indirizzo email valido" 
Else 

MsgBox "Indirizzo email valido" 

End If 


Ci sono due parametri facoltativi per la funzione InStr e sono: Start e Compare e la sintassi è la 
seguente: /nStr(start, Text_To_Search, Find, comapre). Se si omette il numero di partenza, la funzione 
InStr cerca dall'inizio della stringa, mentre se si digita un numero per la partenza InStr inizia la ricerca 
da quel numero di carattere nella stringa. 


Il parametro compare ha quattro opzioni: 


vbUseCompareOption 
vbBinaryCompare 
vbTextCompare 
vbDatabaseCompare 


= RS 


Questi parametri vengono utilizzati raramente. Simile a Instr c'è la funzione InStrRev, che sarebbe 
l'acronimo di Reverse, infatti questa funzione è la stessa di InStr con la sola differenza che InStrRev 
inizia la ricerca dalla fine della stringa invece che all'inizio. 
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52.6 La funzione StrReverse 


Questa funzione è abbastanza facile da usare, come suggerisce il suo nome StrReverse inverte le 
lettere in una stringa di testo. Ecco un po’ di codice per provare: 


Dim Otesto As String 

Dim Rtesto As String 

Otesto = "Inserisci una frase" 
Rtesto = StrReverse(Otesto) 
MsgBox (Rtesto) 


Quando viene eseguito il codice, la finestra di messaggio visualizzerà il testo invertito della variabile 
Otesto. 


52.7 Le Funzioni Left e Right 


Le funzioni Left e Right vengono utilizzate per tagliare i caratteri da una stringa. Si utilizzare Left per 
tagliare i caratteri dall'inizio della stringa, e Right per tagliare i caratteri a partire dalla fine della stringa. 
Tra le parentesi tonde di sinistra e destra della funzione si digita il numero di caratteri che si desidera 
tagliare. Qualche esempio può chiarire le cose. 


Dim Email As String 

Email = "mia_email@prova.com" 
MsgBox Left(Email, 9) 

MsgBox Right(Email, 9) 


Nella prima riga si dichiara una variabile String e nella seconda si inserisce un indirizzo e-mail nella 
variabile Email, mentre nella terza linea si utilizza una finestra di messaggio che utilizza la funzione 
Left: MsgBox Left(Email, 9) 

Quando si esegue il codice la finestra di messaggio visualizza i primi 9 caratteri dell'indirizzo e-mail, 
partendo dalla sinistra del simbolo @. La quarta linea è questa: MsgBox Right(Email, 9) 


La funzione di destra visualizza 9 caratteri a partire dal carattere finale dell'indirizzo e-mail. Questo è un 
esempio abbastanza semplice, adesso per un uso più complesso di Left e Right, supponiamo di avere 
un nome completo nella cella A1 in questo formato: Nelson Mandela, tuttavia, si supponga di voler 
avere il cognome prima del nome in questo modo: Mandela Nelson 


È possibile utilizzare le funzioni Left, Right e InStr per raggiungere questo obiettivo. Creiamo una nuova 
routine e impostiamo quattro variabili, in questo modo: 


Dim Nomec As String 
Dim PNome As String 
Dim SNome As String 
Dim PosSpc As Integer 


Posizionare il nome completo nella variabile NomeC: NomecC = "Nelson Mandela". Ora usiamo la 
funzione InStr per individuare la posizione dello spazio nel nome: PosSpc = InStr(NomeC, " ") 

Per ottenere solo il primo nome si può cominciare all'inizio del nome completo e andare fino alla 
posizione dello spazio (PosSpc) e togliere 1: PNome = Left(NomeC, PosSpc - 1) 
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Il motivo per cui è necessario detrarre 1 dalla variabile PosSpc è perché la funzione InStr restituisce la 
posizione dello spazio, un valore di 7 per il nostro nome, mentre invece il carattere finale del nome, è 
di 1 in meno di questo valore, infatti Nelson ha solo 6 caratteri. Per ottenere il cognome, abbiamo 
bisogno di qualcosa di leggermente diverso. 


La posizione di partenza è la lunghezza del nome completo meno la lunghezza del nome, con questa 
operazione si otterrà il numero di caratteri partendo dalla destra del nome. Il codice è questo: 
SNome = Right(NomecC, Len(NomecC) - Len(PNome)). Così come il parametro finale di destra abbiamo 
questo codice: Len(NomeC) - Len(PNome) 


Questo utilizza la funzione Len per ottenere la lunghezza delle variabili NomeC e PNome, infine, si 
visualizzano i risultati in una finestra di messaggio: MsgBox (SNome & ", " & PNome) 


Ora abbiamo la variabile SNome e PNome separate dal simbolo di concatenazione (&), ma abbiamo 
anche bisogno di una virgola, e dobbiamo inserirla tra virgolette in modo che VBA lo vede come testo. 
Quindi stiamo dicendo, di inserire il cognome, poi una virgola, quindi il Nome. Inoltre si potrebbe anche 
aggiungere una funzione Trim per i nomi, per sbarazzarsi di qualsiasi spazio bianco. Come 

questo: MsgBox (Trim(SNome) & ", " & Trim(PNome)) 


Ma non è necessario per questo piccolo esempio, comunque si tenga presente anche questo aspetto 
nell’utilizzo futuro di queste funzioni. L'intero codice, quindi, dovrebbe essere simile a questo: 


Sub Prova2() 

Dim Nomec As String 
Dim PNome As String 
Dim SNome As String 
Dim PosSpc As Integer 


ai 
Nomec = "Nelson Mandela" Microsoft Excel 


PosSpc = InStr(Nomec, " ") 

PNome = Left(Nomec, PosSpc - 1) 

SNome = Right(NomecC, Len(NomecC) - Len(PNome)) 
MsgBox (SNome & ", " & PNome) 

End Sub 


Mandela, Nelson 


Eseguendo il codice e si dovrebbe vedere questa finestra di 
messaggio: 


Mi) Il codice precedente funziona solo per i nomi che hanno due parti, se il nome è composto da 3 
parti si deve usare un’altra funzione (Split) 


52.8 La Funzione Mid 


Questa funzione viene utilizzata per catturare i caratteri di una stringa di testo. Ha tre parti: 
Mid(string_to_search, start_position, number_of_characters_to_grab) 

La prima parte è la stringa che si desidera cercare e può essere un testo, una variabile oppure il testo 
diretto tra virgolette. La seconda parte è dove iniziare la ricerca della stringa e la parte finale è il 
numero di caratteri che si desidera catturare. Esaminare il seguente codice: 
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Dim Email As String 

Dim Pcar As String 

Email = "mia_emailprova.com" 
Pcar = Mid(Email, 15, 4) 
MsgBox Pcar 


Abbiamo creato due variabili stringa, una chiamata Email e una chiamata Pcar, abbiamo poi 
memorizzato un indirizzo email nella variabile Email e poi viene il codice della funzione Mid: 

Pcar = Mid(Email, 15, 4). |l testo che stiamo cercando è nella variabile Email variabile e vogliamo 
iniziare a catturare i caratteri dalla posizione 15 della stringa e Il numero di caratteri che vogliamo 
prendere è 4. Quando viene eseguito il programma, nella finestra di messaggio verrà visualizzato .com. 
La funzione Mid è molto utile in un Loop, in quanto permette di esaminare un carattere alla volta da 
una stringa di testo. 


52.9 Esercizio con il Metodo String 


Per ottenere una certa dimestichezza con i metodi String, vediamo un altro esercizio. Supponete di 
avere un codice prodotto su un foglio di calcolo che si presentava così: PD-23-23-45, tuttavia, è nel 
formato sbagliato. Per ottenere il codice giusto si devono rimuovere tutti i trattini, e poi si devono 
sostituire le lettere PD nel codice del prodotto con PDC, in modo che il codice si presenti simile a 
questo: PDC232345. La prima parte del problema è la rimozione dei trattini, abbastanza facile, basta 
usare Replace: 


Dim Pcode As String 
Pcode = "PD-23-2345" 
Pcode = Replace(Pcode, "-", "") 


Tra le parentesi tonde di Replace abbiamo il testo che vogliamo cercare, che è la variabile denominata 
Pcode, dopo abbiamo una virgola, e in seguito il carattere che vogliamo sostituire, il trattino, che viene 
sostituito con due doppie virgolette senza spazio tra loro. La seconda parte del problema, si deve 
aggiungere la "C" dopo "PD", sarebbe facile, se VBA aveva una funzione di inserimento, ma non è così e 
questo rende il problema un po' più difficile. Ci sono alcuni modi per inserire la "C" nel posto giusto, noi 
lo faremo utilizzando le funzioni di stringa Left e Mid. Useremo Left per prendere i primi due caratteri, 
quindi aggiungeremo la "C", poi usiamo la funzione Mid per ottenere i numeri. Per ottenere i primi due 
caratteri e aggiungere la "C", il codice è questo: 


Dim Ncar As String 
Ncar = Left(Pcode, 2) & "C" 


Partendo dalla sinistra della variabile Pcode, prendiamo due caratteri con il codice Left(Pcode, 2) e la 
lettera "C" viene aggiunta con la concatenazione in questo modo: Left(Pcode, 2) & "C". Il nuovo codice 
di tre lettere viene memorizzato nella variabile chiamata Ncar e per ottenere i numeri, utilizziamo Mid 


in questo modo: 


Dim Num As String 
Num = Mid(Pcode, 3) 
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La funzione Mid preleverà 3 caratteri dalla variabile Pcode e poiché non abbiamo specificato un 
numero finale, Mid prenderà il resto dei caratteri fino alla fine della stringa. L'unica cosa che resta da 
fare è quello di unire le due parti insieme: 


Dim NewCar As String 
NewCar = Ncar & Num 
MsgBox NewCar 


In questa parte si utilizza solo la concatenazione per unire la variabile Ncar e Num e l'ultima riga utilizza 
una finestra di messaggio per visualizzare i risultati. Tutto il codice, si presenta così: 


Sub Prova3() 

Dim Pcode As String 

Dim Ncar As String 

Dim Num As String 

Dim NewcCar As String 

Pcode = "PD-23-2345" 

Pcode = Replace(Pcode, "-", "") 


Ncar = Left(Pcode, 2) & "C" 
Num = Mid(Pcode, 3) 
NewCar = Ncar & Num 
MsgBox NewCar 

End Sub 


Quando si incontra un problema come quello sopra, la soluzione di solito è di utilizzare una delle 
funzioni Left, Right, o Mid (o tutti) di spezzare la stringa per poi unirli di nuovo insieme. 
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53. Metodi di elaborazione dei file con VBA 


L'elaborazione dei file è la capacità di memorizzare i valori di un documento nel computer in modo da 
poter recuperare tali valori successivamente, oppure è la possibilità di salvare i valori da 
un'applicazione e recuperare tali valori quando è necessario. Prima di eseguire l'elaborazione dei file, la 
prima azione che è necessario eseguire consiste nel creare un file e per sostenere tale processo, VBA 
fornisce una procedura denominata Open che presenta la seguente sintassi 


Open pathname For Output [Access access] [lock] As [#]filenumber [Len=reclength] 


La dichiarazione Open mostra molti argomenti, alcuni sono necessari e altri no, le espressioni 
obbligatorie sono: La dichiarazione Open, l’espressione For Output e la dichiarazione As #, oltre 
all'argomento, pathname (percorso) che è rappresentato da una stringa che può essere il nome del file, 
inoltre Il file può avere un'estensione o meno. Ecco un esempio: Open "Prova.txt" 


Se si specifica solo il nome del file, sarebbe considerato nella stessa cartella in cui è la cartella di lavoro 
corrente (la cartella di lavoro che è stata aperta quando è stata eseguita questa istruzione). Se si 
desidera, è possibile fornire un percorso completo per il file, che include l'unità, il nome della cartella, 
fino al nome del file, con o senza estensione. Oltre al nome del file o il suo percorso, la modalità è un 
fattore necessario in quanto indica l'azione reale che si desidera eseguire, come la creazione di un 
nuovo file o solo l'apertura di uno esistente. Questo fattore può essere rappresentato da una delle 
seguenti parole chiave 


v Output: verrà creato il file e pronto a ricevere i valori (normali) 

v. Binary:verrà creato il file e pronto a ricevere i valori in formato binario (come combinazioni di 1 
e 0) 

v Appendi Se il file esiste già, verrà aperto e nuovi valori possono essere aggiunti alla fine 


Ecco un esempio di creazione di un file: Open "Prova.txt" For Output As #1 


Il tipo di accesso al file è facoltativo, questo argomento specifica quali tipi di azioni saranno eseguite sul 
file, come ad esempio la scrittura dei valori o solo la lettura dei valori esistenti. Questo fattore può 
avere uno dei seguenti valori: 


v Scrittura: Dopo che è stato creato un nuovo file, verranno scritti i nuovi valori 
v. Lettura e Scrittura: Quando un nuovo file è stato creato o un file esistente è stato aperto, i 
valori possono essere letti o scritti 


Se si decide di specificare il tipo di accesso, si deve precedere il suo valore con la parola 
chiave Access mentre il fattore di Lock (Blocco) è facoltativo, e indica come il processore dovrebbe 
comportarsi mentre si utilizza il file. | suoi possibili valori sono: 


Shared (In comune): Altre applicazioni (effettivamente richiamati dal processo) possono 
accedere al file mentre l'applicazione corrente lo sta utilizzando 

v Blocca Scrittura: Non lasciare che altre applicazioni (processi) possano accedere a questo 
file, mentre l'applicazione corrente (processo) sta scrivendo su di esso 

v Blocca Lettura e Scrittura: Non permettere ad altre applicazioni (processi) di accedere a 
questo file, mentre l'applicazione corrente (processo) lo sta utilizzando 
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Sul lato destro dell'espressione #, si deve digitare un numero, per l'argomento filenumber, compreso 
tra le 51lese si lavora su un file solo, si consiglia di utilizzare il numero 1, mentre se si sta lavorando 
su più file, è necessario utilizzare un numero incrementale. Se non si è riuscito a tenere traccia del 
numero o esiste la possibilità di confondersi, per conoscere il numero successivo è possibile utilizzare, 
la funzione FreeFile (), che restituisce il numero successivo disponibile nella sequenza. L'argomento 
reclength è facoltativo, se il file è stato aperto, questo fattore specifica la lunghezza del record che è 
stato letto. 


53.1 Chiusura di un file 


Quando si crea e si inizia ad usare un file, o dopo aver aperto un file e mentre lo si utilizza, si 
impegnano risorse di sistema che potrebbero essere significative, ed è necessario quando si è 
terminato di utilizzare il file, liberare la memoria che si stava usando e rilasciare le risorse impegnate. 
Per eseguire questa operazione usiamo una procedura denominata Close, la cui sintassi è: 

Close [filenumberlist] 


Dove l'argomento filenumberlist è lo stesso argomento filenumber che è stato precedentemente 
utilizzato per creare o aprire il file. Ecco un esempio di chiusura di un file: 


Sub Prova () 
Open "Prova.txt" For Output As #1 
Close #1 

End Sub 


53.2 Scrittura in un file 


Dopo aver creato un file, si deve scrivere dei valori al suo interno, a sostegno di questa azione, VBA 
fornisce due procedure, una si chiama Print e la sua sintassi è: Print #filenumber, [outputlist] 


La sintassi della dichiarazione Print richiede due argomenti, ma è necessario solo filenumber che 
corrisponde all'argomento filenumber che si è usato per creare il file. Filenumber è seguito da una 
virgola e poi dall’argomento outputlist che può essere costituito da 0 a 1 o più valori. Questo 
argomento è facoltativo, se non si vuole assegnare un valore al file, si può lasciare vuoto. Se invece 
volete assegnare un valore, si deve digitare una virgola dopo filenumber e seguire queste regole: 


v_ Se si desidera assegnare un valore con spazi vuoti, utilizzare la funzione Spc () e passare un 
numero intero, tra parentesi che rappresenta il numero di spazi vuoti. Per esempio Spc 
(4) includerebbe 4 spazi vuoti. Questo argomento è facoltativo, il che significa che è possibile 
ometterlo 

v_ Invece di un determinato numero di spazi vuoti, è possibile lasciare che il sistema operativo si 
occupi di questa operazione e per fare questo, si deve richiamare la funzione Tab () come parte 
del fattore di outputlist. La funzione Tab () specifica il numero di colonne da includere prima del 
valore e può essere utile se si desidera l'allineamento dei valori che si scriveranno nel file. 
Questo argomento è facoltativo, il che significa che è possibile ometterlo 

v. Per scrivere una stringa deve essere racchiusa tra virgolette 

v.. Per scrivere un numero, sia un numero intero, o decimale, è sufficiente inserire il numero 
normalmente 

v. Per scrivere un valore booleano, si deve inserire come True o False 
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Per scrivere un valore di data o ora, si deve digitarlo tra # e # e seguire le regole di data o ore 
della lingua del sistema operativo installato 
Per scrivere un valore nullo, digitare Null 


Ecco un esempio di scrittura di alcuni valori: 
Sub Prova () 


Open "Prova.txt" For Output As #1 
Print #1, "Gino" 

Print #1, "Gigetto" 

Print #1, True 

Print #1, #17/08/2014# 

Close #1 


End Sub 


Invece di scrivere un valore per riga, è possibile scrivere più di un valore con una sola dichiarazione. Per 
fare questo, si deve separarli con un punto e virgola o uno spazio vuoto. Ecco un esempio. 


Sub Prova () 


Open "Prova.txt" For Output As #1 


‘I valori sono separate dal punto e virgola 


Print #1, "Gino"; "Gigetto" 


‘I valori sono separate da uno spazio vuoto 


Print #1, True #17/08/2014# 
Close #1 


End Sub 


53.3 La Scrittura di un File 


Oltre alla procedura Print, VBA fornisce anche una procedura denominata Write che può essere 
utilizzata per scrivere uno o più valori in un file. La sintassi è la stessa di quella dell'argomento Print: 


Write #filenumber, [outputlist] 


Dove l'argomento filenumber è necessario e deve essere specificato al momento della creazione del 
file, mentre l'argomento outputlist è facoltativo e se si vuole omettere, si deve digitare una virgola 
dopo la dichiarazione filenumber e terminare la dichiarazione di scrittura. In questo caso, una riga 
vuota verrà scritta nel file. Per scrivere i valori nel file, si devono seguire queste regole. 


v 


ERA 


Per assegnare un valore con spazi vuoti, si deve richiamare la funzione Spc () e passare un 
numero che rappresenta il numero di spazi vuoti. Questo fattore è facoltativo, il che significa 
che è possibile ometterlo 

Per assegnare il valore di un determinato numero di colonne, si deve richiamare la funzione Tab 
() e passare il numero di colonne come argomento. Questo fattore è facoltativo, il che significa 
che è possibile ometterlo 

Per scrivere una stringa, si deve includerla tra virgolette 

Per scrivere un numero, si può inserirlo normalmente 

Per scrivere un valore booleano, si deve inserirlo TRUE o FALSE 

Per scrivere un valore nullo, inserire NULL 

Per scrivere un valore di data o ora, si deve inserirlo tra # e # 


Ecco un esempio di scrittura di alcuni valori: 
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Sub Prova () 
Open "Prova.txt" For Output As #1 
Write #1, "Gino" 
Write #1, "Dott." 
Write #1, "Ginetto" 
Write #1, #17/08/2014# 
Write #1, 12.30 
Write #1, True 
Close #1 
End Sub 


È anche possibile scrivere i valori sulla stessa linea, basta separarli con uno spazio vuoto, una virgola o 
un punto e virgola. Ecco un esempio: 


Sub Prova () 
Open "Prova.txt" For Output As #1 
‘| valori sono separate da un punto e virgola 
Write #1, "Gino"; "Dott."; "Ginetto" 
‘I valori sono separate da uno spazio vuoto 
Write #1, #17/08/2014#, 12.30 
Write #1, True 
Close #1 
End Sub 


53.4 Apertura di un File 


A volte è necessario aprire un file esistente per poter leggere o scrivere altri dati, in questo caso VBA 
fornisce una procedura denominata Open, la cui sintassiè. 


Open pathname For Input [Access access] [lock] As [#]filenumber [Len=reclength] 


La sintassi della procedura Open mostra molti argomenti, alcuni sono necessari e altri no. Sono da 
ritenersi obbligatori i seguenti argomenti: La dichiarazione Open, l’espressione As #e il percorso che 
può essere il nome del file, inoltre il file può avere un'estensione o meno. Ecco un esempio: 

Open "Prova.txt" 


Se si specifica solo il nome del file, si cerca il file nella stessa cartella in cui è alloggiata la cartella di 
lavoro corrente. Se si desidera, è possibile fornire un percorso completo, ciò include l'unità, la cartella 
(opzionale), fino al nome del file, con o senza estensione. Oltre al nome del file o il suo percorso, è 
necessario fornire il tipo di accesso che si desidera fare. Per aprire un file, le modalità possono essere: 


Binary: Il file verrà aperto e il suo valore viene letto come valore binario 

Append: Il file verrà aperto e i nuovi dati verranno aggiunti alla fine dei dati già presenti 
Input: Il file verrà aperto in sola lettura 

Random: Il file sarà aperto per l'accesso casuale 


è e 


Ecco un esempio di apertura di un file: Open "Prova.txt" For Input As #1 
La modalità di accesso è facoltativa e può avere uno dei seguenti valori: 


v. Lettura: Dopo che il file è stato aperto, i valori presenti al suo interno verranno letti 
v Lettura e Scrittura: Se il file è stato creato o aperto, i valori possono essere letti e/o scritti 
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Se si decide di specificare la modalità di accesso si deve precedere il suo valore con la parola chiave di 
accesso 


53.5 La Lettura da un File 


Dopo l'apertura di un file, è possibile leggere i valori al suo interno, e prima di leggere il valore, si 
dovrebbe dichiarare una o più variabili che riceverebbero i valori da leggere. Si deve ricordare che i 
benefici utilizzando una variabile sono di riservare uno spazio di memoria in cui è possibile 
memorizzare un valore. Allo stesso modo, quando si legge un valore da un file, si otterrebbe il valore 
dal file e quindi memorizzare tale valore nella memoria del computer. Una variabile renderebbe più 
facile per fare riferimento a tale valore in caso di necessità. 


Per sostenere la possibilità di aprire un file, il VBA fornisce due procedure. Se i valori sono stati 
memorizzati usando la dichiarazione Print, si possono leggere i valori, utilizzando la 
dichiarazione Input o Line Input. La sintassi della procedura è: Input #filenumber, varlist 


La dichiarazione richiede due argomenti, ma il secondo può essere realizzato in varie parti. 
L'argomento filenumber è lo stesso che si è usato per aprire il file ed è seguito da una virgola. 
L'argomento varlist può essere di 1 o più parti. Per leggere un solo valore, dopo la virgola di 
filenumber, si deve digitare il nome della variabile che riceverà il valore. Ecco un esempio: 


Sub Prova () 
Dim primo As String 
Open "Prova.txt" For Input As #1 
Input #1, primo 
Close #1 
End Sub 


Allo stesso modo, è possibile leggere ogni valore su una riga separata. Uno dei migliori usi di usare la 
dichiarazione Input è la capacità di leggere molti valori utilizzando una singola istruzione. Per effettuare 
questa operazione, si devono digitare le variabili sulla stessa, separandole con virgole. Ecco un 
esempio: 


Sub Prova () 
Dim primo As String 
Dim secondo As String 
Dim tempo As Boolean 
Open "Prova.txt" For Input As #1 
Input #1, primo, secondo, tempo 
Close #1 

End Sub 


Se si dispone di un file che contiene molte linee, per leggere una riga alla volta, è possibile utilizzare la 
parola chiave Line Input. La sua sintassi è: Line Input #filenumber, varname 


Questa affermazione necessita di due argomenti, ed entrambi sono necessari. L'argomento filenumber 
è il numero che si sarebbe usato per aprire il file. Quando l’istruzione Line Input viene richiamata 
chiamato, legge una riga di testo fino a raggiungere la fine del file. Uno dei limiti di Line Input è la 
difficoltà a leggere qualcosa di diverso testo perché potrebbe non essere in grado di determinare dove 
termina la linea. 
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Nel riesaminare la possibilità di scrivere i valori in un file, abbiamo visto che l’istruzione Print scrive un 
valore booleano come Vero o Falso, se si utilizza l'istruzione Input per leggere tale valore, l'interprete 
potrebbe non essere in grado di leggere il valore. Abbiamo visto che in alternativa alla dichiarazione 
Print si può usare la dichiarazione Write, inoltre abbiamo visto che, tra le differenze tra Input e Write, 
quest'ultimo scrive i valori booleani con il simbolo #, questo rende possibile per l'interprete di leggere 
facilmente tale valore. Per queste ragioni, nella maggior parte dei casi, può essere più utile usare la 
scrittura quando si creano valori stringa diversi in un file. 
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54. Importare dati da un file di testo in Excel con VBA 


Essere in grado di manipolare i file di testo e/o CSV con VBA è una competenza che in programmazione 
risulta molto utile e in questa sezione verrà illustrato il modo per poterlo fare. Un file CSV è composto 
da dati separati tra di loro da virgole, infatti l'acronimo CSV indica Comma Separated Value, ovvero 
valori separati da virgole e i dati terminano con un ritorno a capo premendo il tasto Invio sulla tastiera 
(Fig. 1), mentre se un file ha ogni voce su una riga separata con il carattere di tabulazione, allora si dice 
che sia un file TXT (Fig. 2) 


r 


(di 
1] Prova.txt - Blocco note. um a 7]) Prova-txt.txt - Blocco note 


File Modifica Formato Visualizza ? 


Mario Rossi 12345678 A 
Mario verdi 12365479 

Mario Bianchi 98745632 
Aldo Coppi 36985214 
Aldo Coppi 36985274 
carlo Bartali 98732145 
Bartali 98732146 


File. Modifica Formato Visualizza ? 


Mario, Rossi, 12345678 A 
Mario, Verdi, 12365479 
Mario, Bianchi, 98745632 
Aldo, Coppi, 36985214 
Aldo, Coppi, 36985274 
carlo, Bartali, 98732145 
carlo, Bartali, 98732146 


I” 
I” 


Il formato CSV generalmente viene utilizzato per importare e esportare i dati presenti in una tabella e 
ogni linea di testo del file rappresenta una riga della tabella, mentre le linee rappresentano i campi, 
divisi da un carattere separatore, che rappresentano i valori presenti nelle varie colonne. È possibile, 
naturalmente, aprire un file di testo direttamente da Excel, basta seguire il percorso Dati - Carica dati 
esterni dalla sezione Opzioni Testo della barra multifunzione di Excel e verrebbe in tal modo richiamata 
l'importazione guidata del testo. 


Tuttavia, è utile sapere che è possibile farlo a livello di programmazione usando VBA. Per meglio 
comprendere il procedimento in questa lezione andremo ad aprire il file CSV illustrato in figura 
spostando il codice numerico che si vede all'estrema destra in figura 1 nella prima colonna. 


Come prima operazione si apre Excel, si crea una nuova cartella di lavoro vuota, si clicca sulla colonna A 
e si formatta come testo, questo perché il codice nel file di testo è in formato numerico e se si lascia la 
colonna A formattata come generale (di default), si può ottenere un numero "strano". A questo punto 
si apre l'Editor di VBA per arrivare alla finestra del codice e si crea una nuova Sub chiamandola 

ApriFile e come prima riga di codice, si aggiunge la seguente: Dim percorso As String 


Questo codice imposta solo una variabile chiamata percorso, ora abbiamo bisogno di conoscere la 
posizione del file Prova.csv. Supponiamo di aver messo il file .CSV nella cartella Documenti, in questo 
caso è possibile utilizzare il comando Application.DefaultFilePath per conoscere il percorso predefinito 
dove vengono alloggiati i file dal sistema, a questo punto bisogna aggiungere solo il nome del file, 
preceduto da un backslash: percorso = Application.DefaultFilePath & "\Prova.csv" 


Se invece il file è stato inserito in qualche altra cartella allora si può fare qualcosa di simile a questo 
percorso = "C:\Users\user\Documents\Test\Prova.csv" 


Con questo listato il programma punta a una cartella denominata Test che si trova nella cartella 

C: \ Users\user, oppure si deve modificare il percorso per puntare alla cartella in cui è stato salvato il 
file Prova.csv. Ora si deve aprire il file e si inizia con la parola chiave Open, quindi si specifica il nome del 
file, una modalità e un numero di file in questo modo: Open FileName For Mode As FileNumbe 
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La modalità di cui sopra deve essere sostituita da una delle seguenti operazioni: 


Append: viene utilizzato per aggiungere dati ad un file esistente 

Output: viene usato per scrivere in un file 

Input: viene utilizzato per leggere un file 

Binary: viene usato per leggere o scrivere dati in formato binario 

Random: viene utilizzato per inserire caratteri in un buffer di dimensioni set 


i a 


Le modalità che ci interessano sono Input e Output e l'argomento FileNumber può essere qualsiasi 
numero compreso tra 1 e 511 e si precede il numero con il carattere #, quindi, se si sta aprendo un file 
a cui è stato assegnato un indice #1, se si apre un secondo file diverso il suo FileNumber sarebbe # 2, e 
così via, quindi il codice diventa: Open percorso For Input As #1 


Il file che vogliamo aprire è quello che abbiamo memorizzato nella variabile chiamata percorso, si tenga 
presente che è possibile digitare l'intero percorso del file in questo enunciato, racchiudendolo tra 
doppi apici: Open "C:\Users\user\Documents\Test\Prova.csv" For Input As #1 


Con questa istruzione abbiamo accesso al file in sola lettura, la riga successiva è quella di impostare una 
variabile per i numeri di riga, nel nostro caso possiamo usare una variabile come questa. 
Nriga = 0 


Al momento, abbiamo solo detto al VBA di aprire il file, non abbiamo eseguito nessuna azione sul file. 
Di solito come prima azione si dovrebbe eseguire la lettura dei dati nel file, useremo un ciclo Do 
Until per questo: 


Do Until EOF (1) 


Si noti la condizione del Loop: EOF (1), che significa End Of File, mentre 1 tra parentesi tonde è il 
numero di file specificato in precedenza. All'interno del ciclo, inseriamo una linea di codice come la 
seguente: Line Input # 1, LineaFile 


Le prime tre voci prima della virgola si riferiscono alla lettura di una singola linea dal numero di file (# 1) 
e dopo la virgola, si indica a VBA dove si desidera posizionare questa linea, cosa che abbiamo deciso di 
fare tramite la variabile LineaFile. Ad ogni iterazione del Loop, verrà letta una nuova linea dal file di 
testo e posta nella variabile, tuttavia la linea avrà ancora tutte le virgole, quindi la prima linea sarà: 


Mario, Rossi, 12345678 


A questo punto è necessario analizzare le righe del file di testo in qualche modo, sia per togliere le 
virgole che per inserire i valori nelle righe del file Excel. Un buon modo per analizzare una linea è 
usando la funzione Split tramite la quale è possibile inserire ogni elemento di una riga in un array, cosa 
che possiamo fare con un codice come il seguente: RigaF = Split (LineaFile, ",") 


Se osserviamo la riga di codice sopra esposto, notiamo che tra le parentesi tonde della funzione Split, 
abbiamo inserito la variabile LineaFile (che contiene la linea che vogliamo dividere), subito dopo è 
presente una virgola, e infine abbiamo il separatore che vogliamo cercare, nel nostro caso il separatore 
è la virgola. Quando è terminato il Loop, tramite la funzione Split otterremmo un array 

chiamato RigaF che conterrà tutte le linee del file pulite dal carattere separatore. Si deve tenere 
presente che il file di testo ha sempre tre elementi per riga (nome, cognome, codice), così sappiamo 


322 


Microsoft” 


for Applications 


che l'array va da 0 a 2 posizioni. Ora possiamo andare avanti e mettere ogni elemento in una cella del 
foglio di calcolo in questo modo: 


ActiveCell.Offset (Nriga, 0) .Value = RigaF (2) 
ActiveCell.Offset (Nriga, 1) .Value = RigaF (1) 
ActiveCell.Offset (Nriga, 2) .Value = RigaF (0) 


Tra le parentesi tonde della funzione Offset abbiamo il numero di riga e il numero di colonna e stiamo 
usando la variabile chiamata Nriga per identificare le righe che devono ricevere i dati. Questa variabile 
è stata impostata a 0 in precedenza (che incrementeremo a breve), mentre invece le colonne sono 
sempre compensate a 0, 1 e 2, per cui un valore pari a 0, lo ricordiamo, si mantiene nella stessa 
colonna, un valore pari a 1 si sposta di 1 colonna, e un valore di 2 si sposta di 2 colonne dalla cella 
attiva. 


A destra del segno di uguale, abbiamo il nostro array RigaF, poiché vogliamo che il codice numerico sia 
posto nella colonna A, abbiamo usato RigaF (2) che indica l’ultimo valore della riga letta nel file di testo 
e posto come primo valore nel foglio di lavoro dopo il segno di uguale. Abbiamo poi inserito RigaF (1), 
che conterrà l'ultimo nome della riga del file di testo e infine, abbiamo RigaF (0) , che conterrà il primo 
nome della riga del file di testo. L'ultima cosa che rimane da fare all'interno del ciclo è quella di 
incrementare la variabile Nriga, altrimenti saremo bloccati sulla prima riga del foglio di calcolo, usando 
questo codice: Nriga = Nriga + 1 


Quando si apre un file, è necessario chiuderlo da qualche parte nel codice. Questo è abbastanza 
semplice, lo possiamo fare in questo modo: Close # 1. Si digita la parola Close e poi, dopo uno spazio, il 
numero di file che si sta cercando di chiudere, in pratica tutto il codice dovrebbe essere simile a 
questo: 


Sub ApriFile() 
Dim percorso As String 

percorso = "C:\Users\user\Documents\Test\Prova.csv" 

Open percorso For Input As #1 

Nriga = 0 
Do Until EOF(1) 
Line Input #1, LineaFile 
RigaF = Split(LineaFile, ",") 
ActiveCell.Offset(Nriga, 0).Value = RigaF(2) 
ActiveCell.Offset(Nriga, 1).Value = RigaF(1) 
ActiveCell.Offset(Nriga, 2).Value = RigaF(0) 
Nriga = Nriga +1 
Loop 
Close #1 
End Sub 


Provate il codice assicurandovi che la cella attiva del foglio di calcolo sia la cella A1 (la colonna A è 
quella che abbiamo formattato come testo), cliccate poi su un punto qualsiasi all'interno della Sub e 
premete F5 per eseguirla. Se poi tornate al foglio di lavoro si dovrebbero vedere i dati che sono stati 
importati dal file di testo 
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54.1 Scrittura di file di testo in Excel VBA 


Abbiamo appena visto come importare i dati da un file di A B c 
aa si VBA, ora i come Li. dati ui un 1 | 12345678 ee” Mario 
. de desi È ve PISA seni come ase - 12365479 Verdi uuio 
la i quelli elenca i in ig. a ato e scrivere i nuovo in un BI 05745632 Bianchi lino 
file Txt. Il primo compito è quello di trovare un modo per _ 
i si gu 4 | 36985214 Coppi Aldo 
fare riferimento alle celle che ci interessano del foglio di _ 
. A 5 | 36985274 Coppi Aldo 
lavoro che come vediamo è composto da 3 colonne e 7 _ 
| ia 6 | 98732145 Bartali Carlo 
righe, potremmo usare 2 cicli, 1 per scorrere le righe e un - 
7 | 98732146 Bartali Carlo 
altro per scorrere le colonne. 
Forl=1T07 
Forj=1T03 
Next j 
Next i 


Tuttavia, supponiamo che abbiamo aggiunto altre righe e colonne al foglio di calcolo e vorremmo un 
automatismo che calcoli quante righe e colonne contengano i nuovi dati. Il metodo migliore è quello 
di ottenere l’ultima riga con i dati in essa contenuti e l’ultima colonna, allora potremmo modificare i 
cicli in questo modo: 


For 1= 1 To UltimaR 
For j= 1 To UltimaC 
Next j 
Next i 


La domanda è: come possiamo ottenere i valori delle variabili UltimaR e UltimaC? Ci sono diverse 
metodi per trovare l’ultima riga e l’ultima colonna con i dati, un modo popolare per ottenere l’ultima 
riga con i dati, ad esempio, è questo: UltimaR = Cells(1, “A”).End(xIDown).Row 


Questo codice va all'ultima riga del foglio e poi risale fino a trovare la prima cella nella colonna A che 
contiene qualcosa. Una tecnica simile è usata anche per trovare l’ultima colonna con i dati, basta 
sostituire Row con Column. A questo punto possiamo aprire il file in scrittura, in questo modo: 


Open percorso For Output As #1 


Questo comando apre un file in modalità di scrittura e un file non esiste nel percorso indicato verrà 
creato e se il file esiste verrà sovrascritto. Attenzione, che se si desidera che i nuovi contenuti vengano 
aggiunti alla fine del file, allora si usa la parola chiave Append al posto di Output. Per scrivere nel file si 
deve inserire la seguente riga di codice: Write #1, contenutoF 


Si deve digitare la parola chiave Write seguita dal numero del file e subito dopo si inserisce una virgola 
seguita dall’array contenutoF che contiene i dati che si desiderano scrivere sul file. A questo punto 
possiamo vedere quale codice possiamo utilizzare, innanzi tutto si crea una nuova Sub e la 

chiamiamo ScriviFile e aggiungiamo 4 variabili ad inizio routine: 


Dim percorso, CellaD As String 
Dim Ultimac, UltimaR As Long 
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Per ottenere l’ultima riga e colonna con i dati, aggiungiamo le seguenti due righe: 


UltimaR = Cells(1, “A”).End(xIDown).Row 

UltimacC = Cells(1, “A”).End(xIToRight).Column 

È quindi necessario azzerare la variabile CellD in questo modo: CellD = "" 
del file così: percorso = Application. DefaultFilePath & “\Prova.csv” 
Oppure se sappiamo dove si trova il file possiamo utilizzare il metodo già visto per la lettura del file 
percorso = “C:\Users\user\Documents\Test\Prova.txt” 


e specificare il percorso 


Come possiamo vedere il codice punta a un file chiamato Prova.txt nella cartella Documents, si tenga 
presente che se non c'è tale file, VBA allora lo creerà. La riga successiva da aggiungere è quella che 
apre il file in scrittura: Open percorso For Output As #2 


Si noti che il numero del file alla fine è il numero 2, se ricordate abbiamo già usato il numero 1 in 
precedenza, quindi ora cercheremo il numero 2 per evitare eventuali conflitti. 


Mi) Su alcuni sistemi, si può ottenere un errore che indica che il file è già aperto quando si 
eseque il codice, se è così, chiudete Excel e riapritelo. 


Il codice successivo da aggiungere è il doppio ciclo For per leggere i dati e prepararli per la scrittura nel 
file. Questo spezzone di codice è abbastanza complesso, quindi vediamo prima il listato e poi lo 
commenteremo. 


For1=1 To UltimaR 

For j= 1 To UltimaC 

If j= UltimaC Then 

CellD = CellD + Trim(ActiveCeli(I, j). Value) 
Else 

CellD = CellD + Trim(ActiveCeli(I, j).Value) + “,” 
End lf 

Next j 

Write #2, CellD 

CellD = ©” 

Next i 


Come abbiamo detto, stiamo eseguendo un ciclo sulle celle del foglio di calcolo, il ciclo esterno si 
occupa delle righe e il ciclo interno si occupa delle colonne, inoltre all’interno del ciclo interno, 
abbiamo utilizzato una condizione: 


If j= UltimaC Then 

CellD = CellD + Trim(ActiveCell(I, j).Value) 

Else 

CellD = CellD + Trim(ActiveCell(I, j).Value) + “,” 
End If 


Il motivo per cui vogliamo sapere se j è uguale alla variabile UltimaC è a causa delle virgole, in quanto il 


file di testo deve avere ogni riga con i dati separati in questo modo: Mario, Rossi, 12345678 
In pratica stiamo scorrendo una cella alla volta del foglio di lavoro e ognuno degli elementi deve 
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essere separato da una virgola, tuttavia, non c'è la virgola alla fine del terzo elemento, per cui se j è 
uguale a UltimaC non la aggiungiamo con questo codice: CellD = CellD + Trim(ActiveCell(I, j).Value) 


Qualunque sia la cella attiva (ActiveCell) avrà il suo valore inserito nella variabile CellD. Tuttavia, se j 
non è uguale a UltimaR allora eseguiamo, il codice CellD = CellD + Trim(ActiveCell(I, j).Value) + “, “ 
L'unica differenza è la virgola alla fine, al primo ciclo interno, CellD conterrà il valore 12345678, mentre 
al secondo ciclo vi aggiungerà 12345678, Mario, e all'ultimo ciclo aggiungerà 12345678, Mario, Rossi. 


Fuori dal ciclo interno, ma poco prima di Next, abbiamo queste due righe: 


Write #2, CellD 
CellD = 


La prima riga è quella che scrive in realtà la nuova linea nel file di testo, mentre la seconda riporta la 
variabile CellD pari a una stringa vuota. Le ultime due righe di codice chiudono il file e stampano il 
messaggio Fatto 


Close # 2 
MsgBox (“Fatto”) 


Sub ScriviFile() ‘Tutto il codice è simile al seguente: 
Dim percorso As String, CellaD As String, UltimaC As Long, UltimaR As Long 
UltimaR = Cells(1, “A”).End(xIDown).Row 
UltimaC = Cells(1, “A”).End(xIToRight).Column 
percorso = “C:\Users\user\Documents\Test\Prova.txt” 
CellData = “* 
Open percorso For Output As #2 
Fori= 1 To UltimaR 
For j= 1 To UltimaC 
If j= UltimaC Then 
CelID = CellD + Trim(ActiveCell(i, j).Value) 
Else 
CelID = CellD + Trim(ActiveCell(i, j).Value) + “,” 
End If 
Next j 
Write #2, CellD 
CellD = “* 
Next i 
Close #2 
MsgBox (“Fatto”) 
End Sub 


[di 
(]) Prova.txt - Blocco note 


Provate ad eseguire il codice e una volta 
individuato il Hi o file di testo, si dovrebbe ionica 
a LI Sa l'Mario,Rossi,12345680" 


trovare una cosa che assomiglia a questa: "Mario, verdi,12365481" 


"Mario,Bianchi,98745634" 
"Aldo,Coppi,36985214" 
"Aldo,Coppi,36985274" 
"Carlo,Bartali,98732145" 


"carlo,Bartali,98732146" 


Non preoccupatevi per i doppi apici che VBA 
ha aggiunto all'inizio e alla fine di ogni riga 
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55. Leggere un File Txt con VBA 


Ci sono vari modi di leggere un file Txt da VBA, vediamo un modo che credo sia facile da capire e 
modificare ma che richiede la conoscenza di un paio di concetti di VBA come la progettazione delle 
macro e la scelta dei metodi. Per meglio comprendere, vediamo quando, perché e come scegliere la 
funzione giusta, e una corretta gestione degli errori e delle decisioni da intraprendere a livello codice 
utilizzando una tecnica e metodi differenti. Cominciamo con l'aggiunta dei riferimenti necessari al 
progetto VBA, aprite un nuovo file Excel a dall’editor di VB seguite il percorso dal menu Strumenti — 
Riferimenti, scorrete la lista fino a trovare la libreria Microsoft Scripting Runtime library e spuntare la 
casella e confermate l'operazione cliccando sul tasto Ok. La Microsoft Scripting Runtime library ci 
permette di utilizzare: 


FileSystemObject: Con questo oggetto si può accedere rapidamente a qualsiasi unità, cartella o file. 
TextStream: E’ un oggetto usato per leggere il contenuto di un file Txt. Creiamo ora un file Txt aprendo 
notepad o un altro editor di testo e copiate e incollate i dati di esempio qui sotto 


Questa è la riga uno 

questa invece è la seconda linea 
e questa è la linean°3 

ecco la quarta riga del file 

e finiamo con la Linea 5 


Salvate il file col nome di prova.txt sul desktop e ritornate nell’editor di VBE per inserire un nuovo 
modulo, seguendo il percorso dal menu Inserisci - Modulo e copiate e incollate il codice sotto riportato 


Sub leggi txt() 
Dim alex As FileSystemObject 
Set alex = New FileSystemObject 


Dim alex_1 As TextStream Errore di run-time "53": 
Set alex_1 = alex.OpenTextFile("C:\Test\prova.txt") Impossibile trovare i file 
alex_1.Close 


End Sub 


Ora se si esegue la procedura leggi_txt si ottiene un 
messaggio di errore del tipo 


E cliccando sul pulsante Debug si evidenzia la riga che ha rimandato l'errore 


Sub leggi txt () 
Dim alex As FileSystem0Object 
Set alex = New FileSystemObject 
Dim alex 1 As TextStream 


End Sub 


alex 1.Close 


L'errore rimandato è: /mpossibile trovare il file. Un occhio attento si sarebbe accorto dell’errore prima 
di eseguire la procedura in quanto è evidente la differenza dei percorsi del file, ma è stato simulato 
questo errore per introdurre un modo per gestire questo errore. All’inizio è stato citato il metodo come 
semplice e ora vediamo di applicare questa logica. 
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Come si può vedere il metodo OpenTextFile () accetta un parametro che è il percorso del file, ma la 
procedura non controlla se il file esiste o no, tocca al programmatore fornire un corretto percorso di 
ingresso alla funzione per evitare errori Runtime. Per essere sicuri che il file esista si possono usare vari 
metodi, ma il metodo più semplice sarebbe di pilotare il codice in modo che facesse questa 
valutazione: se il file esiste puoi proseguire, se non non esiste esci. 


Quindi dobbiamo aggiungere qualcosa al codice per verificare se il file esiste, e lo possiamo fare in due 
modi, uno consiste nel creare una funzione che esegua il controllo e restituisca un valore Booleano 
True o False, oppure utilizzare un metodo già esistente nell'oggetto FileSystemObject che corrisponde 
al metodo FileExists. Utilizzando il metodo FileExists si può aggiungere un'istruzione /F — F/se al codice 
attuale che prima di aprire il file Txt verifichi se il percorso è corretto. In pratica usando un'espressione 
del genere 


Sub leggi _txt() 
Dim alex As FileSystemObject 
Set alex = New FileSystemObject 
Dim alex_1 As TextStream 
If <pathisvalid> Then 
Set alex_1 = alex.OpenTextFile("C:\Test\prova.txt") 
alex_1.Close 
Else 
MsgBox "Il percorso del file non è valido.", vbCritical, vbNulIString 
Exit Sub 
End If 
End Sub 


Dove <pathisvalid> è solo un segnaposto per l'espressione che deve controllare se il file esiste oppure 
no, in altre parole, se il percorso è valido, pertanto sostituiamo il segnaposto con il comando 
alex.FileExist (“C\Test\prova.txt”) e modifichiamo il listato in questo modo 


Sub leggi _txt() 
Dim alex As FileSystemObject 
Set alex = New FileSystemObject 


Dim alex_1 As TextStream Pas : 
d Il percorso del file non è valido, 


If alex.FileExists("C:\Test\prova.txt") Then 

Set alex_1 = alex.OpenTextFile("C:\Test\prova.txt") 

alex_1.Close 

Else 

MsgBox "Il percorso del file non è valido.", 
vbCritical, vbNulIString 

Exit Sub 

End If 
End Sub 


In alternativa, possiamo usare la funzione Dir per verificare se il file esiste in questo modo: 

If Dir("C:\Test\prova.txt")<> vbNullIString Then. Se si vuole usare Dir () vorrei suggerire di aggiungere 
una funzione di tipo booleano al codice, che restituisca un valore vero o falso se il percorso è corretta o 
meno. Converrete che ricevere un parametro di ritorno vero o falso sia quantomeno azzeccato 
all'operazione che si sta cercando di fare. Possiamo ora definire questa funzione 
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Function FileExist(filePath As String) As Boolean 
If Dir(filePath) <> vbNulIString Then 
FileExist = True 
Else 
FileExist = False 
End If 
End Function 


Oppure con una sintassi come questa: fileExist = IIf(Dir(filePath) <> vbNullString, Vero, Falso) 


Personalmente ritengo che non abbiamo assolutamente bisogno di quest’ultimo listato che utilizza il 
segnaposto (o placeholder) I/F, in quanto sappiamo che la funzione FileExist fa esattamente la stessa 
cosa, ma soprattutto vale la pena di sapere come gestire situazioni simili, creando le proprie funzioni e 
questo è un ottimo modo. E ‘sempre una buona regola assegnare tutti i dati a variabili, se si memorizza 
il percorso in un'unica variabile nel codice, invece di ripeterlo in vari contesti, il codice diventerà più 
facile da gestire, in fase di test e di debug. 


Cosa succede se il percorso o il nome del file cambia? Per non scorrere l'intero progetto alla ricerca di 
tutte le occorrenze di percorso sarebbe molto meglio e più facile da gestire se si usa una variabile che 
identifica il percorso del file e in caso di modifica si edita solo la variabile e il resto del codice rimane 
intatto. Pertanto aggiungiamo una variabile per memorizzare il percorso, creando una variabile String 
denominata filePath a cui assegniamo il valore di "C:\Test\prova.txt" 


Dim filePath As String 
filePath = "C:\Test\prova.txt" 


Da notare che la variabile filePath viene utilizzata nella Function FileExist e OpenTextFile, così ora il 
codice diventa: 


Sub leggi txt() 
Dim alex As FileSystemObject 
Set alex = New FileSystemObject 
Dim alex_1 As TextStream 
Dim filePath As String 
filePath = "C:\Test\prova.txt" 
If alex.FileExists(filePath) Then 
Set alex_1 = alex.OpenTextFile(filePath) 
alex_1.Close 
Else 
MsgBox "Il percorso del file non è valido.", vbCritical, vbNulIString 
Exit Sub 
End If 
End Sub 
Function fileExist(filePath As String) As Boolean 
If Dir(filePath) <> vbNulIString Then 
fileExist = True 
Else 
fileExist = False 
End If 
End Function 


Ora abbiamo costruito la procedura che apre il file se il percorso è corretto, oppure visualizza un 
messaggio di errore se il percorso del file non è corretto. Però questa procedura andrebbe bene se sul 
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pc che viene utilizzato ci sia un solo utente che si logga all'apertura di Windows, oppure, se si sposta il 
percorso di ricerca sul desktop, servono altri parametri, oppure se ci fossero più utenti che si loggano 
sul pc. In questo caso verrebbe rimandato un errore di percorso non trovato a meno che non 
modifichiamo il listato usando una funzione che restituirebbe il nome attualmente loggato in Windows. 
Si tratta di usare la funzione Environ () che per essere usata si deve modificare il percorso del file in 
questo modo: filePath = "C:\Users\" & EnvironS("Username") & "\Test\prova.txt" 


Se si esegue questo codice la macro apre e chiude con successo il file prova.txt, ma non possiamo 
avere nessuna certezza, pertanto possiamo aggiungere una dichiarazione temporanea al codice per 
verificare se il file è effettivamente aperto. 


Sub leggi txt() 
Dim alex As FileSystemObject 
Set alex = New FileSystemObject 
Dim alex_1 As TextStream 
Dim filePath As String 
filePath = "C:\Users\" & Environ$("Username") & "\Desktop\prova.txt" 
If alex.FileExists(filePath) Then 
Set alex_1 = alex.OpenTextFile(filePath) 
Debug.Print IIf(alex_1 Is Nothing, "Il file è chiuso", "Il file è aperto") 
alex_1.Close 
Else 
MsgBox "Il percorso del file non è valido.", vbCritical, vbNulIString 
Exit Sub 
End If 
End Sub 


Se il codice sopra esposto lo eseguiamo è possibile vedere se il file viene aperto oppure no, pertanto 
attiviamo la Finestra Immediata dal menu Visualizza — Finestra immediata oppure cliccando la 
combinazione di tasti CTRL + G e si dovrebbe vedere che il file viene aperto dopo aver eseguito la 
macro 


(generale) 


Sub leggi txt () 
Dim alex As FileSystemObject 
Set alex = New FileSystemObject 
Dim alex 1 As TextStream 


Dim filePath As String 
filePath = "C:\Users\"” &«& Environ$("Username") « "\Desktop\prova.txt" 


If alex.FileFxists(filePath) Then 

Set alex 1 = alex.OpenTextFile(filePath) 
Debug.Print IIf(alex 1 Is Nothing, "Il file è chiuso", "Il file è aperto") 
alex 1.Close 

Else 

MsgBox "Il percorso del file non è valido.", vbCritical, vbNullString 
Exit Sub 


Il file è aperto <% 


Come si può vedere nella figura sopra riportata il codice sta funzionando benissimo, ma cosa 
accadrebbe se ci fosse un errore nel file prova.txt, oppure se fosse stato danneggiato, oppure se il 
metodo OpenTextFile non è riuscito a leggere il file. Certamente sarebbe apparso un messaggio 
minaccioso di errore di runtime. 
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Si dovrebbe sempre prendere in considerazione uno scenario simile se si lavora con i file, se qualcosa 
va storto nell'esecuzione del codice il programma si ferma immediatamente, così, tutti gli oggetti 
aperti, tutti i riferimenti sarebbe rimasti aperti e molto probabilmente non saremmo in grado di 
liberare la memoria a meno che il garbage collection (modalità automatica di gestione della memoria 
nei sistemi Windows) non ci fosse venuto in aiuto. 


Questo è un caso in cui l'istruzione On Error GoTo <label> è molto utile, pertanto proviamo ad 
applicare il gestore degli errori al nostro esempio. Considerate le seguenti modifiche 


Sub leggi _txt() 
Dim alex As FileSystemObject 
Set alex = New FileSystemObject 
Dim alex_1 As TextStream 
Dim filePath As String 
filePath = "C:\Users\" & Environ$("Username") & "\Desktop\prova.txt" 


If alex.FileExists(filePath) Then 

On Error GoTo Err 

Set alex_1 = alex.OpenTextFile(filePath) 

alex_1.Close 

Else 

MsgBox "Il percorso del file non è valido.", vbCritical, vbNulIString 
Exit Sub 

End If 


Err: 
MsgBox "Errore durante la lettura del file.", vbCritical, vbNulIString 
alex_1.Close 
Exit Sub 

End Sub 


Se si verifica un errore durante la lettura del file l'istruzione On goto errore Err fermerà l'esecuzione del 
codice e salterà all'etichetta Err che mostrerà un messaggio di errore, per poi uscire dalla macro 
attualmente in esecuzione. Passiamo ora alla lettura del contenuto del file prova.txt. | tre approcci più 
comuni per leggere il contenuto di un file txt sono i metodi Read ReadAll e ReadLine applicabili 
all'oggetto TextStream. 


7a B Il metodo .ReadAll è molto facile da usare, se inseriamo una riga di codice dopo la 
=L_ cala 5 | 
Questa è chiamata OpenTextFile di questo tipo: Range("A1") = alex_1.ReadAll 
lasiga Si recupera il contenuto del file prova.txt e lo si inserisce nella prima cella in alto a 
uno MUSEI: 4 . s 
Peet sinistra (A1) del foglio di calcolo attivo. 
invece è 
la 
seconda 
linea 
è questa 
è la linea 
n°3 
ecco la 
quarta 
riga del 
file 
e finiamo Se si clicca sulla cella A1 e si osserva la barra della formula si sarà in grado di vedere 
mò “A meglio in quale formato avete ricevuto i vostri dati. Dovrebbe assomigliare a questa 
nea 
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Come si può vedere il metodo ReadAll recupera tutti i dati da un file di testo in una volta nello stesso 


AI v x < È | Questa è la riga uno 


questa invece è la seconda linea 


è questa è la linea n®3 
ecco la quarta riga del file 
e finiamo con la Linea 5 


E 


| 


F 


| 


S. | 


la riga 
uno 
questa 
invece è 
la 
seconda 


linea 
è questa 


è la linea 


e finiamo 
con la 
Linea 5 


formato che sono disposti nel file di testo. E' 
ovvio che ricevere dei dati in questo formato non 
è un buon approccio e non consentono una 
manipolazione degli stessi, ma possiamo usare la 
funzione Read, la quale accetta un parametro che 
corrisponde al numero di caratteri che si desidera 
leggere. Se modifichiamo il codice, sostituendo 
alex_1.ReadAll con alex_1.Read(5), verranno 
restituiti i primi 5 caratteri dal file di testo nella 
cella A1. Potete cambiare il valore 5 in qualsiasi 
altro numero e se si supera il numero di caratteri 
nel file di testo verrà recuperato l'intero file. 


Anche questo metodo non presenta le 
caratteristiche desiderate per importare dei dati 
e manipolarli, non possiamo sapere quanti 
caratteri dobbiamo importare per avere dei dati 
di senso compiuto, se si tratta di dati in formato 
stringa oppure avere dei valori numerici che non 


vengano troncati. Esiste un approccio diverso per leggere il file di testo, usando l'istruzione ReadLine e 
come suggerisce il nome stesso permette di leggere il file riga per riga e possiamo con le adeguate 
istruzioni depositare i dati in celle separate. Se modifichiamo il codice in questo modo 


Set alex_1 = alex.OpenTextFile(filePath) 
Do While Not alex_1.AtEndOfStream 


Range("A" & Range("A" & Rows.Count).End(xIUp).Row + 1) = alex_1.ReadLine 


Loop 
alex_1.Close 


Il risultato sarà come il seguente 


A 


1 

2 |Questa è la riga uno 

3 [questa invece è la 

4 |è questa è la linean ° 3 
5 |eccola quarta riga del 
6 
dd 


‘e finiamo con la Linea 5 


Come si può notare la prima riga è stata lasciata vuota, che potrebbe ospitare le intestazioni dei campi, 
ma se si osserva l'istruzione Range("A" & Range("A" & Rows.Count).End(xIUp).Row + 1) , se si esegue il 
codice due volte, alla successiva esecuzione i dati verrebbero incollati sotto l’ultima riga utilizzata nella 
colonna A, in alternativa è possibile utilizzare una variabile per sovrascrivere i dati in questo modo: 
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Set alex_1 = alex.OpenTextFile(filePath) 
Dim i As Long 
= i 
Cells.ClearContents 
Do While Not alex_1.AtEndOfStream 
Range("A" & i) = alex_1.ReadLine 
i=i+1 
Loop 
alex_1.Close 


e si ottiene un risultato come il seguente: 


Al A | B 

1 Questa è la riga uno 

2 |questa invece è la 

3 è questa è la linea n° 3 

4 \eccola quarta riga del Concludendo ormai si dovrebbe facilmente essere in grado di 
5 le finiamo con la Linea 5 aprire qualsiasi file txt con codice VBA ed estrarre i dati da esso, 
6 | vediamo il codice per intero nei due approcci presentati 


Sub leggi _txt() 
Dim alex As FileSystemObject 
Set alex = New FileSystemObject 
Dim alex_1 As TextStream 
Dim filePath As String 
filePath = "C:\Users\" & Environ$("Username") & "\Desktop\prova.txt" 
If alex.FileExists(filePath) Then 
On Error GoTo Err 
Set alex_1 = alex.OpenTextFile(filePath) 
Dim i As Long 
i=1 
Cells.ClearContents 
Do While Not alex_1.AtEndOfStream 
Range("A" & i) = alex_1.ReadLine 
i=i+1 
Loop 
alex_1.Close 
Else 
MsgBox "Il percorso del file non è valido.", vbCritical, vbNulIString 
Exit Sub 
End If 
Exit Sub 
Err: 
MsgBox "Errore durante la lettura del file.", vbCritical, vbNulIString 
alex_1.Close 
Exit Sub 
End Sub 


Function fileExist(filePath As String) As Boolean 
If Dir(filePath) <> vbNullString Then 
fileExist = True 
Else 
fileExist = False 
End If 
End Function 
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Sub leggi _txt() 
Dim alex As New FileSystemObject 
Dim alex_1 As TextStream 
Dim filePath As String 
filePath = "C:\Users\" & Environ$("Username") & "\Desktop\prova.txt" 
If Not fileExist(filePath) Then GoTo FileDoesntExist 
On Error GoTo Err 
Set alex_1 = alex.OpenTextFile(filePath) 
With Sheets(1).Range("A1") 
.ClearContents 
.NumberFormat ="@" 
.Value = alex_1.ReadAll 
End With 
alex_1.Close 
Exit Sub 


FileDoesntExist: 
MsgBox "Il File non esiste", vbCritical, "File not found!" 
Exit Sub 


Err: 
MsgBox "Errore durante la lettura del file.", vbCritical, vbNulIString 
alex_1.Close 
Exit Sub 

End Sub 


Function fileExist(path As String) As Boolean 


fileExist = IIf(Dir(path) <> vbNullIString, True, False) 
End Function 
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56. Oggetto Application - Metodi e Proprietà 


L'oggetto Application di Excel rappresenta l'applicazione Microsoft Excel, definita anche applicazione 
Host. Se l'applicazione Host è Microsoft Word, l'oggetto Application si riferisce e rappresenta 
l'applicazione Word. Excel presuppone che anche quando non è specificato, il qualificatore dell'oggetto 
Application non è necessario per essere utilizzato nel codice VBA, perché l'applicazione di default è 
Excel stesso, a meno che non si vuole fare riferimento ad altre applicazioni esterne (come Microsoft 
Word o Access) nel codice o se si vuole fare riferimento a Excel da un'altra un'applicazione come 
Microsoft Word. 


Tutte le applicazioni Microsoft Office, che utilizzano VBA, hanno un proprio modello di oggetti e 
durante la scrittura di codice VBA in Microsoft Excel, si prevede di utilizzare gli oggetti forniti dal 
modello a oggetti di Excel. Il modello a oggetti è una grande gerarchia di tutti gli oggetti utilizzati in VBA 
e il modello Application si riferisce e contiene i suoi oggetti di programmazione che sono legati gli uni 
agli altri in una gerarchia. L'intera applicazione Excel è rappresentata dall'oggetto Application che è in 
cima alla gerarchia di oggetti e scendendo verso il basso è possibile accedere agli oggetti per la cartella 
di lavoro, i fogli di lavoro e gli Intervalli di celle. 


Brevemente si può dire che l'oggetto Application è la classe principale nel modello a oggetti e ogni 
volta che si apre Excel, viene istanziato un nuovo oggetto Application. La classe Application possiede 
metodi e proprietà come: 


v. ActiveWorkBook: proprietà che restituisce la cartella di lavoro attiva nell’applicazione 

v. ActiveSheet: proprietà che restituisce il foglio attivo nella cartella di lavoro attiva 
dell’applicazione 

v ActiveCell: proprietà che restituisce la cella attiva nel foglio di lavoro attivo, della cartella di 
lavoro attiva dell’applicazione 


Nel codice VBA, le espressioni Application.ActiveWorkbook.Name e ActiveWorkbook.Name avranno lo 
stesso effetto di restituire il nome della cartella di lavoro attiva. Tuttavia, ci sono alcuni casi in cui è 
richiesta la qualificazione dell'oggetto Application per essere utilizzato, vale a dire quando si utilizzano 
proprietà e metodi che riguardano l'aspetto della finestra di Excel, o che riguardano come 
l'applicazione Excel si deve comportare. 


56.1 La Proprietà Application.WindowState 


La proprietà WindowState imposta lo stato della finestra dell'applicazione e le opzioni sono 

xINormal, xIMaximized (imposta la finestra attiva alla dimensione massima disponibile purché non sia 
già ingrandita) e x/Minimized. Si noti che queste proprietà non possono essere impostate se la finestra 
è ingrandita, e le proprietà sono di sola lettura se la finestra è minimizzata 


Sub app_winstat () 
Application.WindowState = xINormal 
Application.Height = 350 
Application.Width = 450 

End Sub 
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56.2 La Proprietà Application.DisplayFullScreen 


Utilizza un valore Booleano e impostata su True, la finestra dell'applicazione è ingrandita alla 
dimensione massima e la barra del titolo viene nascosta. 
sintassi. Application. DisplayFullIScreen = True 


56.3 La Proprietà Application.DisplayFormulaBar 


Utilizza un valore Booleano e mostra o nasconde la barra della formula quando è impostato su, 
rispettivamente, True o False. sintassi: Application.DisplayFormulaBar = False 


56.4 La Proprietà Application.Calculation 


Restituisce o imposta la modalità di calcolo e dispone di 3 impostazioni: 


v. xICalculationAutomatic - (Default) ricalcola automaticamente i dati immessi nelle celle 
v. xICalculationSemiautomatic - Ricalcolo automatico da Excel ad eccezione di tabelle di dati 
v xICalculationManual - Il calcolo viene fatto solo quando richiesto dall'utente 


Esempio: Application.Calculation = xICalculationManual 


56.5 La Proprietà Application.EditDirectlyInCell 


Utilizza un valore booleano e consente o non consente la modifica direttamente nelle celle quando è 
impostata, rispettivamente a True o False. sintassi : Application.EditDirectlyInCell = False 


56.6 La Proprietà Application.ScreenUpdating 


Utilizza un valore booleano ed è usata quando non si vuole vedere lo schermo seguire le azioni della 
routine VBA che si sta eseguendo. Se la proprietà ScreenUpdating è impostata su False, 
l'aggiornamento dello schermo non è visibile, e non sarà in grado di visualizzare ciò che il codice fa, 
rendendo più veloce l'esecuzione. Quando si disattiva l'aggiornamento dello schermo al termine delle 
procedure si deve impostare la proprietà a True. sintassi : Application.ScreenUpdating = False 


56.7 La Proprietà Application.DisplayAlerts 


Utilizza un valore booleano e durante l'esecuzione di una macro, alcuni avvisi vengono visualizzati da 
Excel per confermare un'azione durante l'eliminazione di un foglio di lavoro. L'impostazione di questa 
proprietà su False non visualizzerà alcuna richiesta o avviso e in questo caso si riceverà una risposta 
predefinita da Excel. Questa proprietà deve essere impostata con il valore predefinito True dopo la 
procedura termina. sintassi. Application.DisplayAlerts = False 


336 


Microsoft® 


for Applications 


56.8 La Proprietà Application.DefaultFilePath 


Si usa questa proprietà per ottenere e impostare il percorso predefinito utilizzato da Microsoft Office 
Excel per caricare e salvare i file. sintassi Application.DefaultFilePath = "C:\Documenti\Excel" 


56.9 Il Metodo Application.Quit 


Si utilizza questo metodo per chiudere l'applicazione Excel. Si noti che dopo la chiusura della cartella di 
lavoro, la finestra di Excel rimane aperta. Per uscire da Excel si può utilizzare il metodo Quit come 
illustrato di seguito. sintassi. ThisWorkbook. Close SaveChanges: = True 


Chiude Excel e poi chiude ThisWorkbook dopo il salvataggio (il metodo Quit non termina Excel) 


Application.Quit 
ThisWorkbook. Close SaveChanges: = True 


Chiude ThisWorkbook, ma non chiude Excel perché viene chiuso con ThisWorkbook senza leggere la 
linea Application.Quit: 


ThisWorkbook. Close SaveChanges: = True 
Application.Quit 


56.10 Il Metodo Application.ActivateMicrosoftApp 


Questo metodo attiva un'applicazione Microsoft già in esecuzione oppure crea una nuova istanza 
dell'applicazione nel caso in cui l'applicazione non è già in esecuzione. Qui di seguito i codici per 
avviare e attivare, rispettivamente, Word, Access e Power Point: 


v. Application.ActivateMicrosoftApp xIMicrosoftWord 
v. Application.ActivateMicrosoftApp xIMicrosoftAccess 
v. Application.ActivateMicrosoftApp xIMicrosoftPowerPoint 


56.11 Il Metodo Application.OnTime 


Questo metodo viene utilizzato in VBA per eseguire automaticamente una procedura ad intervalli 
periodici o in un momento specifico della giornata. Nel seguente esempio, RunTime è una variabile 
pubblica di tipo Date, che imposta l'intervallo di tempo e la macro denominata MacroAutoRun verrà 
eseguito automaticamente, a intervalli di tempo programmato di tre secondi, con il metodo OnTime. . 
sintassi. Application.OnTime RunTime, "MacroAutoRun" 


Esempio di utilizzo del metodo Application.OnTime: Questa procedura utilizza il metodo OnTime col 
valore di incremento reperito in una cella a intervalli di tempo specifici, e Arresta la procedura dopo 
averla eseguita per un determinato numero di volte. Si Imposta l'intervallo di tempo 3 secondi, nel 
quale la procedura verrà eseguita 
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RunTime Public As Date 

Dim count As Integer 

Sub MacroAutoRun () 

RunTime = + TimeValue ("00:00:03") Now 
Application.OnTime RunTime, "MacroAutoRun", True 
‘incrementa il valore in A1 del foglio di lavoro attivo) di 5 unità, per ogni volta che la macro si ripete 
Cells (1, 1) Valore = Cells (1, 1).Value + 5 

count = count + 1 

‘Interrompere la procedura dopo averla eseguita per 5 volte 
If count = 5 Then 

Application.OnTime RunTime, "MacroAutoRun", False 
count = 0 

End If 

End Sub 


56.12 Proprietà e Metodi dell'Oggetto Application 


Tali proprietà e metodi il cui utilizzo NON richiede di specificare il qualificatore dell'oggetto Application 
sono considerati globali. È possibile visualizzare queste proprietà e metodi globali nel Visualizzatore 
oggetti in VBE dal menu Visualizza - Visualizzatore oggetti, o premendo F2 e scegliendo Excel dall'elenco 
a discesa delle librerie nel riquadro superiore e quindi scegliendo 

GLOBALS che appare in alto nella casella Classi. 


56.13 Il Metodo Application.GetOpenFilename 


Il metodo GetOpenFilename ottiene il nome del file da aprire dall'utente, visualizzando la finestra di 
dialogo standard Apri. La sintassi è la seguente: 
ApplicationObject.GetOpenFilename (FileFilter, FilterIndex, titolo, ButtonText, MultiSelect) 


Tutti gli argomenti sono opzionali, è necessario specificare l'oggetto Application. 

L'argomento FileFilter è un valore stringa che specifica i criteri di filtro per il tipo di file che verranno 

visualizzati nella directory da cui l'utente ottiene il nome del file. Ci sono 4 filtri specificati in FileFilter 
ed è possibile specificare uno qualsiasi di questi criteri predefiniti utilizzando i numeri indice da 1a 4 


Si può utilizzare l'argomento Titolo per specificare il titolo della finestra di dialogo. Il titolo predefinito è 
"Open" se non specificato. L'argomento ButtonText è applicabile solo per i computer che eseguono 
Excel per Macintosh (Mac) e impostando l'argomento MultiSelect a True si consente la selezione 
multipla dei file. L'impostazione predefinita è False. E' possibile utilizzare FileFilter per i file di Excel 
xlsm, specificando le estensioni in coppie e utilizzando caratteri jolly "Excel Files (*. XIsm), *. XIsm" 


Si può usare FileFilter per estensioni xls, xlsx e XLSM, usando il punto e virgola e i caratteri jolly "Excel 
Files (* xIs,. *. XIsx,. * XIsm), * xs, *. XIsx,. *. XIsm" 


Utilizzando FileFilter per estensioni XLSM e file di testo txt elencandoli separatamente nella lista dei tipi 
di file "Excel Files (*. XIsm), *. XIsm, File di testo (*. Txt), *. Txt" 

Se l'argomento FileFilter viene omesso, per impostazione predefinita assume la sintassi: tutti i file "Tutti 
file (*.*), 7," 
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Esempio: Selezionare e aprire un singolo file, immettere il salvare e chiudere la cartella di lavoro 


Sub GetOpenFilename1 () 
Dim nome_file As Variant 
Dim wkbk As Workbook 
Dim str_cartella, cor_cartella As String 
cor_cartella = CurDir 
str_cartella = "C:\Test" 
'impostata l'unità corrente 
ChDrive str_cartella 
ChDir str_cartella 
nome_file = Application.GetOpennome._file(FileFilter:="Excel .. Files (* xlsm), * xlsm ", Title:="Seleziona un 
file ") 
If nome_file = False Then 
MsgBox "Selezionare un file per continuare" 
Exit Sub 
Else 
Workbooks.Open (nome_file) 
Set wkbk = ActiveWorkbook 
Sheets("Foglio1").Select 
wkbk.ActiveSheet.Range("A1") = "Ciao" 
wkbk.Save 
wkbk.Close 
End If 
ChDrive cor_cartella 
ChDir cor_cartella 
End Sub 


Esempio: Selezionare e aprire più file 


Sub GetOpenFilename2 () 

Dim nome file As Variant 

Dim i As, iFiles As Integer 

‘Verifica se l'utente fa clic sul pulsante Annulla 
If IsArray(nome_file) = False Then 

MsgBox "Seleziona il file per continuare" 

Exit Sub 

Else 

'Determinare il numero di file da aprire 
iFiles= UBound(nome_ file) - LBound(nome__file) + 1 
For i = 1 To iFiles 

Workbooks.Open nome__file(i) 

Next i 

End If 

End Sub 


Esempio: Aprire un file Excel esistente da una directory, aggiungere una nuova cartella nella stessa 
posizione e salvarlo come un file xlsm, poi copiare un foglio dalla cartella di lavoro esistente alla cartella 
di lavoro appena aggiunta, quindi chiudere entrambe le cartelle di lavoro. 
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Sub GetOpenFilename3() 

Dim fileName As Variant 

Dim str_cart As String 

Dim wb_dest As Workbook 

Dim wb_orig As Workbook 

str_cart = "C:\Test" ‘impostare un percorso da cui selezionare i file nella finestra di dialogo Apri 
ChDrive str_cart ‘impostare l'unità 

ChDir str_cart ‘impostare la directory corrente 

fileName = Application.GetOpenFilename(FileFilter:="Excel .. Files (* xlsm), * xlsm ", Title:="Seleziona un 
file ") 

If fileName = False Then 'Se l'utente fa clic sul pulsante Annulla viene visualizzato un avviso a video 
MsgBox "Si prega di selezionare un file per continuare" 

Exit Sub 

Else 

Set wb_orig = Workbooks.Open(fileName) 'apre una cartella di lavoro 

End If 

Workbooks.Add ‘Aggiungere una nuova cartella di lavoro, che è la cartella di lavoro di destinazione 
'salva la cartella di lavoro di destinazione con un nuovo nome e il tipo di file xlsm 
ActiveWorkbook.SaveAs fileName:="newWorkbook.xlsm", FileFormat:=52 

Set wb_dest = ActiveWorkbook 

‘copia il foglio2 dalla cartella di origine alla nuova cartella di destinazione come ultimo foglio 
wb_orig.Worksheets("Foglio2").Copy After:=wb_dest.Sheets(Sheets.Count) 

wb_orig.Close 'chiude sia le cartelle di lavoro, dopo aver salvato la cartella di destinazione 
wb_dest.Close SaveChanges:=True 

End Sub 


56.14 La Proprietà ActiveCell 


La proprietà ActiveCell, applicata ad un oggetto Application, restituisce la cella attiva (oggetto Range) 
del foglio di lavoro visualizzato nella finestra attiva. È inoltre possibile applicare questa proprietà per un 
oggetto Window specificando la finestra per cercare la cella attiva. 


Si noti che, in assenza di un foglio di lavoro visualizzato nella finestra, la proprietà avrà esito negativo. 
Qualsiasi dei seguenti codici possono essere utilizzati in alternativa (si noti che Value è la proprietà 
predefinita di un oggetto Range) 


MsgBox "il valore della cella attiva è:" & Application.ActiveCell 
MsgBox "il valore della cella attiva è:" & ActiveCell 

MsgBox "il valore della cella attiva è:" & ActiveWindow.ActiveCell 
MsgBox "il valore della cella attiva è:" & ActiveCell.Value 


56.15 La Proprietà ActiveWindow 


Questa proprietà restituisce la finestra attiva. La finestra attiva è la finestra attualmente selezionata. Il 
codice per visualizzare il nome dell’ActiveWindow che appare nella barra del titolo è il seguente: 


MsgBox "La finestra attiva è:" & Application.ActiveWindow. Caption 
MsgBox "La finestra attiva è:" & ActiveWindow.Caption 
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56.16 La Proprietà ActiveWorkbook 


Questa proprietà restituisce la cartella di lavoro attiva, cioè la cartella di lavoro nella finestra attiva 


MsgBox "il nome della cartella attiva è" & Application.ActiveWorkbook.Name 
MsgBox "il nome della cartella attiva è" & ActiveWorkbook.Name 


56.17 La Proprietà ThisWorkbook 


Questa proprietà viene utilizzata solo dall'interno dell'applicazione Excel e restituisce la cartella di 
lavoro in cui il codice viene eseguito al momento. 


MsgBox "Il nome di questa cartella di lavoro è" & Application.ThisWorkbook.Name 
MsgBox "Il nome di questa cartella di lavoro è" & ThisWorkbook.Name 


Si noti che sebbene il più delle volte ActiveWorkbook è la stessa ThisWorkbook, ma potrebbe non 
essere sempre così. La cartella di lavoro attiva può essere diversa da quella di lavoro in cui viene 
eseguito il codice, come illustrato dal seguente esempio. 


Sub ActiveWorkbook_ThisWorkbook () 

MsgBox "il nome della cartella Attiva è" & ActiveWorkbook.Name 
MsgBox "Il nome di questa cartella di lavoro è" & ThisWorkbook.Name 
Workbooks ("Book2. xIsm "). Activate 

MsgBox "il nome della cartella Attiva è" & ActiveWorkbook.Name 
MsgBox "Il nome di questa cartella di lavoro è" & ThisWorkbook.Name 
Workbooks ("Book1.xlsm"). Activate 

MsgBox "il nome della cartella Attiva è" & ActiveWorkbook.Name 
MsgBox "Il nome di questa cartella di lavoro è" & ThisWorkbook.Name 
End Sub 


56.18 La Proprietà ActiveSheet 


La proprietà ActiveSheet, applicata ad un oggetto Application, restituisce il foglio attivo nella cartella di 
lavoro attiva. È inoltre possibile applicare questa proprietà per una cartella di lavoro o finestra 
specificando la cartella di lavoro o la finestra per cercare il foglio attivo. | seguenti codici mostrano il 
foglio attivo nella cartella di lavoro attiva 


Msgbox "il nome del foglio attivo è" & Application.ActiveSheet.Name 

MsgBox "il nome del foglio attivo è" & Application.ActiveWorkbook.ActiveSheet.Name 
Msgbox "il nome del foglio attivo è" & ActiveSheet.Name 

MsgBox "il nome del foglio attivo è" & ActiveWorkbook.ActiveSheet.Name 


Mentre il seguente codice restituisce il foglio attivo nella cartella di lavoro specificata (denominata 
"Test_vba.xlsm"): 


MsgBox "il nome del foglio attivo è" & Application.Workbooks ("Test_vba.xIsm"). ActiveSheet.Name 
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56.19 La Proprietà ActiveChart 


La proprietà ActiveChart, applicata ad un oggetto Application, restituisce il grafico attivo nella cartella 
di lavoro attiva. Nella cartella di lavoro è possibile avere fogli grafici separati e definisce grafici come 
fogli di lavoro o grafici incorporati che comprende il grafico come un oggetto all'interno di un foglio di 
lavoro. Un foglio grafico o un grafico incorporato è attivo se è stato selezionato o se è attivato con il 
metodo Activate. È inoltre possibile applicare la proprietà ActiveChart di una cartella di lavoro o un 
oggetto Window specificando la cartella di lavoro o la finestra per cercare il grafico attivo. | seguenti 
codici mostrano il grafico attivo nella cartella di lavoro attiva 


MsgBox "Il nome del grafico attivo è:" & Application.ActiveChart.Name 

MsgBox " Il nome del grafico attivo è:" & Application.ActiveWorkbook.ActiveChart.Name 
MsgBox " Il nome del grafico attivo è:" & ActiveChart.Name 

MsgBox " Il nome del grafico attivo è:" & ActiveWorkbook.ActiveChart. Name 


Il seguente codice restituisce il grafico attivo nella cartella di lavoro specificata (denominata " 
Test_vba.xlsm ") 


MsgBox " Il nome del grafico attivo è:" & Application.Workbooks ("Test_vba.xIsm ") ActiveChart.Name 


56.20 La Proprietà Application.ActivePrinter 


Questa proprietà imposta il nome della stampante attiva. Per Impostare una stampante HP LaserJet 
0011 su LPT1 come stampante attiva 


Application.ActivePrinter = "HP LaserJet 0011 su NE02: " 
ActivePrinter = "HP LaserJet 0011 su NE02: " 


Per impostare la stampante Adobe PDF sul Ne04 come stampante attiva 
Application.ActivePrinter = "Adobe PDF su Ne04: " 


ActivePrinter = "Adobe PDF su Ne04: " 


56.21 La Proprietà Selection 


La proprietà Selection se applicata a un oggetto Application, restituisce l'oggetto che viene selezionato 
nella finestra attiva. L'oggetto selezionato potrebbe essere un oggetto Range o una singola cella del 
foglio di lavoro attivo, un oggetto ChartArea nel foglio di lavoro attivo, e così via. È inoltre possibile 
applicare la proprietà di selezione un oggetto finestra in cui la proprietà restituirà l'oggetto selezionato 
nella finestra specificata. Presumendo che la selezione corrente sia un oggetto Range nel foglio di 
lavoro attivo. Per cancellare il contenuto delle celle selezionate nel foglio di lavoro attivo, si può 
utilizzare uno dei due metodi sotto descritti con o senza il qualificatore di oggetto Application 


Application.Selection.Clear 
Selection. Clear 
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Esempio: Selezionare un intervallo di celle per ottenere il tipo di oggetto della selezione e utilizzare la 
selezione per cambiare colore e grandezza carattere. 


Sub SelectionProperty () 

Range ("A1: C3"). Select 

'ottenere il tipo di oggetto della selezione - restituisce "Range" 
MsgBox TypeName (Selection) 

'cambiare il colore del carattere del campo selezionato 
Selection.Font.Color = vbRed 

'cambiare la dimensione del carattere dell'intervallo selezionato 
Selection.Font.Size = 14 

End Sub 


56.22 La Proprietà Range 


La proprietà Range restituisce un oggetto Range (singola cella o intervallo di celle). È possibile utilizzare 
la sintassi. Range (cell1) . Questo può essere solo un riferimento di tipo A1, ed è possibile utilizzare un 
operatore di intervallo o l'operatore di unione (es. virgola), oppure può essere un intervallo 
denominato. È inoltre possibile utilizzare la sintassi Range (cell1, cell2) - dove cell1 e cell2 sono oggetti 
che rappresentano l'intervallo di celle contigue che specificano le celle di inizio e fine. 


Per applicare la proprietà Range di un oggetto Application, è possibile omettere il qualificatore di 
oggetto. Range (cell1) o utilizzare Application.Range (cell1), entrambi restituiranno l'oggetto Range in 
ActiveSheet. Per applicare la proprietà Range di un oggetto cartella di lavoro o un oggetto Range, 
specificare il rispettivo qualificatore oggetto come illustrato di seguito. 


56.23 La Proprietà Sheets 


L'oggetto Sheets si riferisce a tutti i fogli contenuti in una cartella di lavoro, che comprende fogli grafici 
e fogli di lavoro. Le Schede della struttura, applicate ad un oggetto Application, restituisce un insieme 
Sheets nella cartella di lavoro attiva. È inoltre possibile applicare questa proprietà per una cartella di 
lavoro specificando la cartella di lavoro che restituirà una raccolta di fogli di lavoro specificato. Qui di 
seguito viene illustrato come contare il numero di fogli della cartella di lavoro attiva e restituire il nome 
di ciascun foglio. 


Sub SheetsCollection () 

Dim n As Integer 

‘numero dei fogli nella cartella di lavoro attiva 

MsgBox " Numero di fogli nella cartella di lavoro attiva sono:" & Application.Sheets.Count 
MsgBox " Numero di fogli nella cartella di lavoro attiva sono:" & Sheets.Count 
For n= 1 To Sheets.Count 'Nome dei fogli in base al valore dell'indice 

MsgBox Sheets(n). Name 

Next n 

For Each Sheet In Sheets 'Nome dei fogli scorrendoli tutti nella cartella di lavoro 
MsgBox Sheet.Name 

Next 

End Sub 
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56.24 La Proprietà Range Applicabile all’Oggetto Application 


Qualsiasi dei seguenti codici inseriranno il valore 10 nella cella A1 del foglio attivo (con o senza usare il 
qualificatore di oggetto Application o digitando ActiveSheet) 


Application.ActiveSheet.Range ("A1"). Value = 10 
ActiveSheet.Range ("A1"). Value = 10 
Application.Range ("A1"). Value = 10 

Range ("A1"). Value = 10 


Il seguente codice inserirà il valore 10 nelle celle A1, A2, A3 e A4 del foglio attivo. La seconda 
espressione utilizza la sintassi: Range (cell1, cell2): 


Range ("A1: A4") Valore = 10 
Range ("A1", "A4"). Value = 10 


Il seguente codice inserirà il valore 10 nelle celle A1, B2 e C4 del foglio attivo (si noti che specificando 
"Value" dopo il Range non è necessario perché è la proprietà predefinita dell'oggetto Range) 


Range ("A1, B2, C4")= 10 


Il seguente codice inserirà il valore 10 nell’intervallo denominato "pippo" del foglio attivo, vale a dire 
che è possibile denominare l'intervallo A1 come "pippo" e utilizzare il seguente codice: 


Range ("pippo") = 10 


56.25 La Proprietà Range Applicabile all’Oggetto Worksheet 


Il seguente codice inserirà il testo "Carlo" nella cella A1 del foglio di lavoro denominato "Foglio1" 
Worksheets ("Foglio1"). Range ("A1") = "Carlo" 


56.26 La Proprietà Range Applicabile all’Oggetto Range 


Quando la proprietà Range viene applicata a un oggetto Range, la proprietà diventa relativa all'oggetto 
Range come illustrato di seguito: 


Sub RangeProperty () 

'Selezionare un intervallo nel foglio attivo 
Range("C5:E8").Select 
Selection.Range("A1") = 10 ‘inserisce il valore 10 in C5 
‘inserisce il valore 11 in C6 

Selection. Range ("A2") = 11 

‘inserisce il valore 20 in D5 
Selection.Range ("B1") = 20 

‘inserisce il valore 20 in DG 
Selection.Range ("B2") = 21 

End Sub 
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56.27 Il Metodo Calculate 


Il metodo Calcola, se applicato a un oggetto Application, calcola tutte le cartelle di lavoro aperte. È 
inoltre possibile applicare questo metodo a un oggetto foglio di lavoro specificando il foglio di lavoro in 
una cartella di lavoro; oppure è possibile applicare questo metodo a un intervallo specificando una 
cella o un intervallo di celle in un foglio di lavoro. 


56.28 Il Metodo Calculate Applicabile all'Oggetto Application 


Utilizzare una delle seguenti righe di codice per calcolare tutte le cartelle di lavoro aperte: 
Application.Calculate 


Calculate 


56.29 Il Metodo Calculate Applicabile all'Oggetto Worksheet 


Utilizzare una delle seguenti righe di codice per calcolare un foglio di lavoro specifico (denominato 
"Foglio1"): 


Application.Worksheets ("Foglio1"). Calculate 
Worksheets ("Foglio1"). Calculate 


56.30 Il Metodo Calculate Applicabile all'Oggetto Range 


Utilizzare una delle seguenti righe di codice per calcolare l'intervallo specificato (celle A5, A6 e A7) in un 
foglio di lavoro: 


Application.Worksheets ("Sheet1") Range ("A5: A7"). Calculate. 
Worksheets ("Foglio1") Range ("A5: A7"). Calculate 


La seguente riga di codice calcola l'intera colonna (colonna A) in un foglio di lavoro: 
Worksheets ("Foglio1"). Columns (1). Calculate 


La seguente riga di codice calcola le celle specifiche A5, A6, B7 e B20 in un foglio di lavoro: 
Worksheets ("Foglio1"). Range ("A5, A6, B7, B20"). Calculate 


Utilizzare la seguente riga di codice per calcolare l'intervallo specificato (celle A5, A6 e A7) nel foglio di 
lavoro attivo: Range ("A5: A7"). Calculate 
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VBA fornisce alcuni metodi per lavorare con i file, ma usando le funzioni di base come Dir, Name etc. 
che presentano una stretta correlazione di comportamento con i comandi DOS, ma purtroppo 
riducono notevolmente il raggio d'azione, appesantendo notevolmente il listato del codice. Per 
estendere le possibilità per quanto riguarda la gestione di file e directory, Microsoft ha sviluppato una 
serie di oggetti raggruppati all'interno della libreria Microsoft Scripting Runtime, e questo insieme di 
classe gerarchica ha una sola radice: il FileSystemObject, più comunemente conosciuta come FSO. 


Il modello File System Object (FSO) è uno strumento basato sugli oggetti per l'utilizzo di cartelle e file e 
consente di utilizzare la sintassi oggetto.metodo con un numeroso gruppo di proprietà, metodi ed 
eventi per l'elaborazione di cartelle e file e inoltre è possibile utilizzare le istruzioni e i comandi 
tradizionali di Visual Basic. Il FileSystemObject è una manna per tutti gli sviluppatori che utilizzano 
Visual Basic, in quanto semplifica il compito di trattare con qualsiasi tipo di input e output di file e per 
interagire con la struttura del file System stesso. 


Piuttosto che ricorrere a complesse chiamate alla API Win32, questo oggetto consente alle applicazioni 
di creare, modificare, spostare ed eliminare cartelle, nonché di rilevare l'esistenza ed eventualmente la 
posizione di cartelle specifiche, inoltre è possibile ottenere informazioni sulle cartelle, quali il nome, la 
data di creazione e dell'ultima modifica e così via. Il modello FSO comprende i seguenti oggetti: 


onsente di raccogliere informazioni relative a un'unità collegata al sistema, come la quantità di 
pazio disponibile e il nome di condivisione. Tenere presente che "drive" nel modello FSO non 


Drive a 3 | 
orrisponde solo al termine inglese per indicare il disco rigido: può trattarsi di un'unità CD-ROM, un: 

| Folder nsente di creare, eliminare o spostare cartelle e di richiedere al sistema i loro nomi, i percorsi e i 
tre informazioni. i 
File onsente di creare, eliminare o spostare file e di richiedere al sistema i loro nomi, i percorsi e altre 


Il modello FSO è contenuto nella libreria 
dei vari tipi di script, che si trova nel file 
Scrrun.dil e se non è già presente un 
ce riferimento alla libreria, è possibile crearne 


9) Microsoft Excel 15.0 Object Library a uno in questo modo: dal menu Strumenti - 
[MOLE Automation - pri P 

{Microsoft Office 15.0 Object Librar hi Riferimenti, e nella scheda che appare 

[2 Microsoft Scrintina Runtime : . 

5 AccessibiityCplAdmin 1.0 Type Lbrary scorrere la lista e selezionare la 


|_l| Active DS Type Library 4 nia 
I] ActiveMovie control type library jorità voce Microsoft Scripting 


[_] AdHocReportingExcelClientLib î i ! indi ; 
mire Runtime dall'elenco, quindi fare clic su Ok. 
[_] AEAudioAPODIliib 

[_]AgControl 5.1 Type Library 

[_] AlbumdDownload Protocol Handlers 

Fr] te Client 1.0 HelnPane noe i ibrarv 

‘ TTI 


- Microsoft Scripting Runtime 


Percorso: C:\Windows\system32\scrun.dll 

Lingua: Standard E’ possibile creare un oggetto 

i FileSystemObject utilizzando il metodo 
CreateObject in questo modo: 


oFSO = CreateObject("Scripting.FileSystemObject") 
Oppure dimensionando una variabile come oggetto FileSystemObject, in questo modo: 
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Dim oFSO As New FileSystemObject 


| metodi dell'oggetto FSO per le operazioni che può svolgere sono i seguenti: 


Comando FSO 


CreateFolder o CreateTextFile 


Descrizione 


Spostare un oggetto i 


i Accesso a un'unità, cartella o file esistente 


Votazione 


Come si può notare, alcune funzioni 
possibile ad esempio copiare un file tramite il metodo CopyFile dell'oggetto FileSystemObject o tramite 
il metodo Copy dell'oggetto File. | metodi funzionano in modo identico, sono state esposte entrambe le 
versioni per offrire la massima flessibilità di programmazione. Non è necessario tuttavia utilizzare i 
metodi Get con i nuovi oggetti, in quanto se vengono usate le funzioni Create restituiscono già un 
puntamento a tali oggetti. 


Se ad esempio viene creata una nuova cartella con il metodo CreateFolder, non è necessario utilizzare 
il metodo GetFolder per accedere alle sue proprietà, quali Name, Path o Size, è sufficiente impostare 
una variabile sulla funzione CreateFolder per ottenere un riferimento alla nuova cartella e quindi 
accedere alle sue proprietà, metodi ed eventi. 


Esempio: Visualizzare le informazioni su un file utilizza alcune proprietà di FSO 


Private Sub FileInfo(ByVal fileName As String) 
Dim fso As New FileSystemObject 
Dim fileSpec As File, mInfo As String 
Set fileSpec = fso.GetFile(fileName) 
minfo = fileSpec.Name & vbCrLf 
miInfo = miInfo & "Creato il: " 
miInfo = mInfo & fileSpec.DateCreated & vbCrLf 
miInfo = mInfo & "Ultimo Accesso: " 
miInfo = mInfo & fileSpec.DateLastAccessed & vbCrLf 
miInfo = mInfo & "Ultima Modifica: " 
miInfo = mInfo & fileSpec.DateLastModified 
MsgBox miInfo, vbInformation, "Informazioni File" 
Set fileSpec = Nothing 

End Sub 


‘Che può essere richiamata con un codice come il seguente 
Sub info1() 

Dim infoF As String 

infoF = "C:\Test\info1.txt" 


Filelnfo (infoF) 
End Sub 


Esempio: Visualizzare le informazioni su una cartella 
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Private Sub FolderInfo(ByVal folderName As String) 
Dim fso As New FileSystemObject 
Dim folderSpec As Folder, mInfo As String 
Set folderSpec = fso.GetFolder(folderName) 
minfo = folderSpec.Name & vbCrLf 
miInfo = mInfo & "Creata il: " 
miInfo = mInfo & folderSpec.DateCreated & vbCrLf 
miInfo = mInfo & "Dimensione: " 
miInfo = mInfo & folderSpec.Size 
MsgBox miInfo, vbInformation, "Informazioni Cartella" 
Set folderSpec = Nothing 
End Sub 


‘Può essere richiamata in questo modo 


Sub info2() 

Dim infoC As String 
infoC = "C:\Test" 
FolderInfo (infoC) 
End Sub 


Esempio: Controllare se una cartella esiste 
Function FolderE(DirName As String) As Boolean 
On Error Resume Next 
FolderE = GetAttr(DirName) And vbDirectory 
End Function 


‘La Function sopra riportata può essere testata usando un codice come il seguente 


Sub Prova1() 

Dim Percorso As String 
Percorso = "C:\Test" 
MsgBox FolderE(Percorso) 
End Sub 


Esempio: Controllare se un file esiste 
Function FileE(FileName As String) As Boolean 
On Error Resume Next 
FileE = GetAttr(FileName) And vbArchive 
End Function 


‘Che può essere testata in questo modo 


Sub Prova2() 

Dim FileN As String 

FileN = "C:\Test\info1.txt" 
MsgBox FileE(FileN) 

End Sub 
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57.1 Accederea un disco 


La collezione Drives dell'oggetto FileSystemObject fornisce l'accesso a tutti i record riconosciuti dal 
sistema operativo e ogni disco è quindi un oggetto ben distinto e il suo ID nella collezione è 
determinato dalla lettera di accesso (C, D, E, etc.), naturalmente, non si può scrivere, aggiungere o 
eliminare oggetti in questa collezione. Si deve tenere presente che usando Il metodo DriveExists della 
classe FileSystemObject è possibile determinare l'esistenza di un disco in base al suo nome. 


Dim oFSO As Scripting.FileSystemObject 
Dim oDrv As Scripting.Drive 
Set oFSO = New Scripting.FileSystemObject 
If oFSO.DriveExists("C") Then 

Set oDrv = oFSO.GetDrive("C") 
Else 

MsgBox "Questo disco non esiste" 
End lf 


Un'altra possibilità è quella di utilizzare il riferimento diretto alla raccolta Drives 


Dim oFSO As Scripting.FileSystemObject 
Dim oDrv As Scripting.Drive 
Set oFSO = New Scripting.FileSystemObject 
If oFSO.DriveExists("C") Then 

Set oDrv = oFSO.Drives("C") 
Else 

MsgBox "Questo disco non esiste" 
End lf 


Se il disco non esiste, i due metodi restituiranno lo stesso errore: Errore # 5 chiamata di routine non 
valido. Attenzione, che con questo metodo si accede ad un disco, o meglio in un disco, ma nel caso si 
tratti di un'unità CD-Rom e non fosse presente nessun CD non viene generato nessun errore, in 
sostanza non sappiamo se il dispositivo è accessibile. 


Esempio: Enumerare tutte le unità disco con un Loop For Each 


Dim oFSO As Scripting.FileSystemObject 
Dim oDrv As Scripting.Drive 
Set oFSO = New Scripting.FileSystemObject 
For Each oDrv In oFSO. Drives 

MsgBox oDrv.DriveLetter 
Next oDrv 
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57.2 Le Proprietà del disco 


DriveLetter: E’ la lettera utilizzato dal sistema operativo per accedere al disco. 

DriveType: Identifica il tipo di disco, CD-Rom, Disco Fisso, Ramdisk, etc. 

FileSystem: E’ il tipo di file System presente nel disco (es.: NTFS) 

AvailableSpace, FreeSpace: Indica lo spazio disponibile e lo spazio libero in byte 

IsReady: E’ rappresentato da un valore booleano che indica se l'unità è disponibile. 

Path: Indica il percorso del disco. 

RootFolder: Corrisponde alla cartella principale, e fornisce l'accesso a tutti i file presenti sul disco. 
SerialNumber: Indica il numero di serie del disco. 

ShareName: Restituisce una stringa corrispondente alla quota del disco. Questa stringa sarà nulla 
se il disco non è condiviso. 

VolumeName: Restituisce il nome del volume (non dell'unità) in una stringa. (es.: Dati) 
v.TotalSize: dimensioni del disco in byte 


* SARA 


Alcuni esempi di funzioni per la gestione dei dischi, iniziando dal determinare il numero di CD-ROM 
(compresi quello virtuale) installato sul Pc: 


Function leggiCD1() As Integer 
Dim oFSO As Scripting.FileSystemObject 
Dim oDrv As Scripting.Drive 
Set oFSO = New Scripting.FileSystemObject 
For Each oDrv In oFSO.Drives 
If oDrv.DriveType = CDRom Then leggiCD1 = leggiCD1 + 1 
Next oDrv 
End Function 


Esempio: Restituire la lettera del disco rigido con più spazio disponibile 
Function leggiD() As String 
Dim oFSO As Scripting.FileSystemObject 
Dim oDrv As Scripting.Drive 
Dim intFree As Double 
Set oFSO = New Scripting.FileSystemObject 
'Percorso del disco 
For Each oDrv In oFSO.Drives 
'Se si tratta di un disco rigido e se contiene un filesystem valido (formattato) 
If oDrv.DriveType = Fixed And oDrv.IsReady Then 
'Se lo spazio libero è superiore a intFree, allora sostituisci 
If oDrv.FreeSpace > intFree Then 
intFree = oDrv.FreeSpace 
leggiD = oDrv.DriveLetter 
End If 
End If 
Next oDrv 
End Function 


Come si può vedere in questo esempio, la manipolazione di oggetti FSO fornisce un codice strutturato 
nello stesso modo come se si utilizza il metodo DAO (Database.OpenRecordset) in cui lo stesso oggetto 
viene richiamato più volte. Per questo motivo, è ampiamente raccomandato il refactoring dei blocchi di 
codice in questo modo. 
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Function leggiD1() As String 
Dim oFSO As Scripting.FileSystemObject 
Dim oDrv As Scripting.Drive 
Dim intFree As Double 
Set oFSO = New Scripting.FileSystemObject 
For Each oDrv In oFSO.Drives 'Percorso del disco 
With oDrv 
'Se si tratta di un disco rigido e se contiene un filesystem valido (formattato) 
If .DriveType = Fixed And .IsReady Then 
If .FreeSpace > intFree Then 'Se lo spazio libero è superiore a intFree, allora sostituisci 
intFree = .FreeSpace 
leggiD1 = .DriveLetter 
End If 
End If 
End With 
Next oDrv 
End Function 


57.3 Gestione Cartelle 


Per accedere a una cartella si osserva lo stesso metodo usato per i dischi, in seguito vedremo i vari 
metodi e proprietà dell'oggetto cartella. L'accesso a un file istanziando un oggetto Folder, può essere 
fatto in due modi: 


v. Direttamente dall'oggetto FSO 
v Dalla cartella principale 


Prendiamo il caso di un accesso usando FSO e Il metodo GetFolder (path) che restituisce un 
oggetto Folder, corrispondente al percorso passato come parametro. 


Dim oFSO As Scripting.FileSystemObject 
Dim oFld As Folder 

Set oFSO = New Scripting.FileSystemObject 
Set oFld = oFSO.GetFolder("C:\Windows") 


Se però la cartella non esiste, verrà restituito un errore 76 (percorso non trovato), per cui è opportuno 
gestirlo in questo modo. 


On Error GoTo err 
Dim oFSO As Scripting.FileSystemObject 
Dim oFld As Folder 
Set oFSO = New Scripting.FileSystemObject 
Set oFld = oFSO.GetFolder("C:\Windows0")' simulazione errore 
fine: 
Exit Function 
err: 
If err.Number = 76 Then 
MsgBox "Questa cartella non esiste" 
Else 
MsgBox "Errore Sconosciuto" 
End lf 
Resume fine 
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Si noti che l'errore 76 può anche essere evitato controllando l'esistenza del file dal FSO con il 
metodo FolderExists in questo modo 


Set oFSO = New Scripting.FileSystemObject 

If oFSO.FolderExists("C:\Windows0") Then 
Set oFld = oFSO.GetFolder("C:\Windows0") 

Else 

MsgBox "Questa cartella non esiste" 

End lf 


Tuttavia, non vi è alcuna garanzia che il file non venga eliminato tra il test di verifica e il tentativo di 
accesso, per cui è fondamentale gestire l’errore 76 con l'argomento On Error, oppure usando un’altra 
tecnica che è quella di utilizzare la gerarchia delle cartelle nel file System, in cui ogni oggetto Folder 
dispone di una proprietà SubFolders per consolidare le sue sottocartelle. Nel caso di C:\Windows, dove 
Windows rappresenta un “figlio” della cartella C:\ (RootFolder) 


Dim oFSO As Scripting.FileSystemObject 

Dim oDrv As Drive, oFld As Folder 

Set oFSO = New Scripting.FileSystemObject 

Set oDrv = oFSO.GetDrive("C") 

Set oFld = oDrv.RootFolder.SubFolders("Windows") 


Anche se a prima vista il codice sembra più complesso, o più pesante, poiché l'accesso al disco è 
separato dal file, con questo metodo saremo in grado di conoscere il livello di errore in caso di mancata 
esecuzione, in altre parole, è l'unità C, che non è disponibile o inesistente su Windows? 


On Error GoTo err 
Dim oFSO As Scripting.FileSystemObject 
Dim oDrv As Drive, oFld As Folder 
Set oFSO = New Scripting.FileSystemObject 
Set oDrv = oFSO.GetDrive("C") 
Set oFld = oDrv. RootFolder.SubFolders("Windows") 
fine: 
Exit Function 
err: 
Select Case err.Number 
Case 5: MsgBox "Il disco non è disponibile" 
Case 76: MsgBox "Il record non esiste in questo disco' 
Case Else: MsgBox "Errore sconosciuto" 
End Select 
Resume fine 


I 


Come per l'accesso, è possibile utilizzare due diverse tecniche per creare una cartella: 


v_ Utilizzando direttamente |'FSO 
v Utilizzando un oggetto Folder tramite la sua collezione SubFolders 


Usando FSO si può fare con questo codice: 
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On Error GoTo err 

Dim oFSO As Scripting.FileSystemObject 
Dim oDrv As Drive, oFld As Folder 

Set oFSO = New Scripting.FileSystemObject 
Set oFld=0FSO.CreateFolder ("C:\Test") 


fine: 
Exit Function 
err: 
Select Case err.Number 
Case 58: MsgBox "Il file esiste già" 
Case 76: MsgBox "Percorso non corretto" 
Case Else: MsgBox "Errore sconosciuto" 
End Select 
Resume fine 


Se il percorso non è valido, o la directory principale del disco è inesistente, viene generato un errore 76 
(percorso non trovato), mentre se il file esiste già, l'operazione non riesce e rimanda un errore 58 (File 

già esistente). L'oggetto Ofld restituito dal metodo CreateFolder è riutilizzabile immediatamente dopo il 
codice, dal momento che la collezione SubFolders viene usata in questo modo: 


On Error GoTo err 

Dim oFSO As Scripting.FileSystemObject 
Dim oDrv As Drive 

Set oFSO = New Scripting.FileSystemObject 
Set oDrv = oFSO.GetDrive("C") 
oDrv.RootFolder.SubFolders.Add ("Test") 


fine: 
Exit Function 
err: 
Select Case err.Number 
Case 5: MsgBox "Il disco non è disponibile" 
Case 58: MsgBox "Il file esiste già" 
Case 76: MsgBox "Percorso non corretto" 
Case Else: MsgBox "Errore sconosciuto" 
End Select 
Resume fine 


Come si può vedere dal codice, la differenza sta solo nella gestione degli errori. Per chi ha familiarità 
con DAO, probabilmente si ricorderà la proprietà Attributes per oggetti diversi che rappresenta 
l'aggiunta logica dei diversi valori degli elementi di qualificazione. Ad esempio, una cartella potrebbe 
essere nascosta, oppure nascosta e archiviata, etc. | valori possibili sono: 


Normal 

ReadOnly: Sola lettura 

Hidden: Cartella nascosta 
System: Cartella Sistema 
Archive: archivio di file 
Compressed: Cartella compressa 


<= AAA & 


Di seguito sono riportati alcuni possibili listati di prova: 


If oFId.Attributes And Directory Then MsgBox "Nascosto" 
If oFld.Attributes And (Hidden + ReadOnly) Then MsgBox "Nascosta e di sola lettura" 
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La proprietà Attributes può essere applicata in lettura o in scrittura, il che significa che è possibile 
modificare gli attributi di cartella. Esempio per rimuovere una modalità cartella nascosta: 
If oFld.Attributes And Hidden Then 


oFld.Attributes = oFld.Attributes - Hidden 
End lf 


57.4 Le Proprietà dell'Oggetto Folder 


v. Attributes: Come visto sopra, attribuisce la cartella. 

Y. DateCreated: Data di creazione della cartella 

v. DateLastAccessed: Data dell'ultimo accesso alla cartella 

Y. DateLastModified: Data ultima modifica 

v. Drive: Corrispondente al disco in cui si trova la cartella 

v Files: E' una raccolta di file nella cartella 

v IsRootFolder: E° un valore booleano che determina se la cartella è la radice del disco 

v Name: Indica il nome della cartella 

v.. ParentFolder: Folder corrisponde alla cartella principale, se la cartella è una cartella RootFolder 
questa proprietà restituisce Nothing. 

v Path: Indica il percorso completo della cartella 

v. ShortName: E’ il nome “breve” di una cartella con un massimo di 8 caratteri 

v. ShortPath: percorso completo della cartella in cui ogni componente è conforme alla norma 


ShortName 

v Size: Dimensione totale del file in byte. Questa è la somma delle dimensioni di tutti i file nella 
cartella e relative sottocartelle. 

v. SubFolders: Indica un raggruppamento di sottocartelle 

v Type: Tipo di file. In tutti i casi esaminati, è FileFolder 


57.5 Il metodo Copy dell'Oggetto Folder 


Il metodo Copy consente di copiare la cartella e il suo contenuto in un altro percorso (esistenti o 
meno). Sintassi Copy(Destination As String, [OverWriteFiles As Boolean = True]). 

Dove Destination rappresenta un percorso valido di destinazione della copia e se OverWriteFiles è 
vero, i file presenti nella directory di destinazione vengono sovrascritti se hanno lo stesso nome. 
Esempio: oFld.Copy "C:\Test", True 


Se il percorso di destinazione non è corretto, viene generato un errore 76 (percorso non trovato) e se 
OverWriteFiles è False e la destinazione contiene già dei file con lo stesso nome, viene generato un 
errore 58 (File già esistente). Il metodo CopyFolder dell'oggetto FSO riproduce lo stesso 
comportamento. Esempio: oFSO. CopyFolder("C:\Test","C:\Test2",True) 


57.6 Il Metodo Delete dell’Oggetto Folder 


Il metodo Delete rimuove la cartella specificata. Sintassi Delete([Force As Boolean = False]). || 
parametro Force se viene collocato a True esegue una forzatura per eliminare file di sola lettura nella 
cartella specificata e relative sottocartelle. Se invece Force è False, viene generato un errore 70 
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(Permesso negato) e il file diventa di sola lettura, e vale anche se il file è aperto. Esempio: oFld.Delete 
False 


E ‘possibile utilizzare un altro metodo per eliminare una cartella usando il metodo DeleteFolder 
dell’oggetto FileSystemObject. Esempio: oFSO. DeleteFolder "C:\Test", False 


57.7 Il Metodo Move dell’Oggetto Folder 


Il metodo Move sposta la cartella di destinazione specificata in un altro percorso. 
Sintassi. Move(Destination As String). Esempio: oFld.Move "C:\Test2" 


E 'possibile spostare una cartella in un'altra, tuttavia, inoltre se il contenuto esiste già nella 
destinazione verrà generato un errore 58. Anche in questo caso, si può utilizzare l'equivalente FSO con 
il metodo MoveFolder. Esempio: oFSO.MoveFolder "C:\Test", "C:\Testi2" 


57.8 Cartelle speciali 


Il metodo GetSpecialFolder consente l'accesso a directory specifiche. 
Sintassi. GetSpecialFolder(SpecialFolder As SpecialFolderConst) As Folder e i valori possibili per 
SpecialFolder sono: 


Y. WindowsFolder: Cartella in cui è installato Windows 
Y SystemFolder: Cartella di Sistema (Windows) 
Y TemporaryFolder: Cartella per memorizzare i file temporanei 


57.9 Gestione dei file 


Questa è la gerarchia più bassa dell'elemento e ogni file è rappresentato da un oggetto file nell'insieme 
Files in un oggetto Folder. Per accedere a un file si possono utilizzare due metodi. 


v_ Utilizzando il metodo Getfile del FileSystemObject 
v Utilizzando la collezione File di un oggetto Folder 


Usando FSO può essere espresso in questo modo 


On Error GoTo err 
Dim oFSO As Scripting.FileSystemObject 
Dim oFl As Scripting.File 
Set oFSO = New Scripting.FileSystemObject 
Set oFl = oFSO.GetFile("C:\Test\info1.txt") 
fine: 
Exit Function 
err: 
Select Case err.Number 
Case 53: MsgBox “Il file non è stato trovato 
Case Else: MsgBox "Errore sconosciuto" 
End Select 
Resume fine 


n 
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Si deve prestare attenzione che se il percorso del file non è corretto, viene generato l'errore 53 (File 
non trovato). In questi casi viene usato il metodo FileExists per verificare l'esistenza del file. 


On Error GoTo err 
Dim oFSO As Scripting.FileSystemObject 
Dim oFl As Scripting.File 
Set oFSO = New Scripting.FileSystemObject 
If oFSO.FileExists("C:\Test\info1.txt") Then 
Set oFl = oFSO.GetFile("C:\Test\info1.txt") 
End lf 
fine: 
Exit Function 
err: 
Select Case err.Number 
Case 53: MsgBox “Il file non è stato trovato" 
Case Else: MsgBox "Errore Sconosciuto" 
End Select 
Resume fine 


Mentre usando l'oggetto Folder il codice è il seguente: 


On Error GoTo err 
Dim oFSO As Scripting.FileSystemObject 
Dim oFld As Scripting.Folder 
Dim oFl As Scripting.File 
Set oFSO = New Scripting.FileSystemObject 
Set oFld = oFSO.GetFolder("C:\Test") 
Set oFl = oFld.Files("info1.txt") 
fine: 
Exit Function 
err: 
Select Case err.Number 
Case 76: MsgBox "La cartella non esiste" 
Case 53: MsgBox "Il file non si trova in questa cartella" 
Case Else: MsgBox "Errore Sconosciuto" 
End Select 
Resume fine 


57.10 Il Metodo Copy dell'Oggetto File 


Il metodo copy permette di copiare il file in un'altra destinazione. Sintassi 
Copy(Destination As String, [OverWriteFiles As Boolean = True]) 


Dove Destination è un percorso valido del file copiato, e se esiste già un file con lo stesso nome, verrà 
sovrascritto con l'unica condizione che OverWriteFiles sia uguale a true. 
Esempio: oFl.Copy "C:\Test2\info1.txt", True 


Se il percorso di destinazione non è corretto, viene generato un errore 76 (percorso non trovato). Se 


invece OverWriteFiles è uguale a False e il file esiste già, viene generato un errore 58 (File già 
esistente). Il metodo CopyFile dell'oggetto FSO riproduce lo stesso comportamento. 


356 


Microsoft® 


for Applications 


Esempio: oFSO.CopyFile("C:\Test\info1.txt","C:\Test2\info1. txt ",True) 


57.11 LeProprietà dell'Oggetto File 


Attributes: Gli attributi dei file, stessa proprietà per le cartelle. 
DateCreated: Data di creazione del file 

DateLastAccessed: Data dell'ultimo accesso 
DateLastModified: Data ultima modifica 

Drive: Indica l’unità corrispondente al disco in cui risiede il file 
Name: Nome del file. 

ParentFolder: E’ la Cartella che contiene il file. 

Path: Indica il percorso completo del file. 

ShortName: Denominazione rispettando lo standard 8.3 
ShortPath: Percorso completo della cartella in cui ogni componente 
Size: Dimensione in byte del file 

Type: Tipo di file 


<TR 


57.12 Il Metodo Delete dell’Oggetto File 


Il metodo Delete elimina il file specificato. Sintassi Delete([Force As Boolean = False]), dove il 
parametro Force se posto uguale a True, forza l'eliminazione di un file anche se è di sola lettura, se 
invece è uguale a False e il file è di sola lettura, viene generato un errore 70 (Autorizzazione negata). 
Questo errore viene generato se il file è aperto. Esempio: oFl.Delete False. È anche possibile utilizzare il 
metodo DeletefFile per l'oggetto FSO. Esempio: oFSO. DeleteFile "C:\Test\info1.txt", False 


57.13 Il Metodo Move dell’Oggetto File 


Il metodo Move permette di spostare il file in un'altra destinazione. 

Sintassi. Move(Destination As String). Esempio: oFl.Move "C:\Test2\info1.txt". In alternativa, si può 
usare il metodo Movefile dell'oggetto FileSystemObject. Esempio: oFSO.MoverFile "C:\Test\info1.txt ", 
"C:\Test2\info1.txt " 

Questi metodi possono essere usati anche per rinominare un file. Esempio: oFSO.MoveFile 


"C:\Test\info1.txt ", "C:\Test\info1_old.txt " 


57.14 Verificare l'esistenza di un percorso 


Sebbene il FileSystemObject fornisce diversi metodi per verificare l'esistenza di un file, è difficile in caso 
di errore sapere quale parte del percorso ha causato il problema in caso di errore. Immaginate questo 
percorso: C:\Test\Test2\Prove3 dove Prove3 non esiste. Usando il metodo FolderExists viene restituito 
il valore di False, ma l'utente ignorerà se è stato causato da Test, Test2 o Prove3. In questo caso si può 
usare una funzione più completa per identificare il file alla radice dell'errore. 
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Function TestC(strC As String) As Boolean 
On Error GoTo err 
Dim oFSO As Scripting.FileSystemObject, oFld As Scripting.Folder 
Dim oDrv As Scripting.Drive, i As Integer 
Dim strD() As String 
Set oFSO = New Scripting.FileSystemObject 'istanziare FSO 
Set oDrv = oFSO.Drives(oFSO.GetDriveName(strC)) ‘Accedere al disco 
'Instanziare la cartella principale 
Set oFld = oDrv.RootFolder 
‘tagliare il percorso della cartella 
strD = Split(strC, "\") 
'tentativi di accedere alle sotto cartelle 
Fori= 1To UBound(strD) - 1 
Set oFld = oFId.SubFolders(strD(i)) 
Next i 
TestC = True 
fine: 
Exit Function 
err: 
Select Case err.Number 
Case 5: MsgBox "Il disco non esiste" 
Case 76: MsgBox "Impossibile trovare il file: " & strD(i) 
Case Else: MsgBox "Errore Sconosciuto" 
End Select 
Resume fine 
End Function 
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58. Classi e Oggetti: Introduzione 


Il linguaggio di Microsoft Visual Basic utilizza il concetto di classe per identificare o gestire le parti di 
un'applicazione. Se, per esempio, consideriamo un oggetto come una casa, avrà delle caratteristiche 
come il tipo (residenziale, condominio, villa, etc.), il numero di camere da letto, il numero di bagni, etc. 
e tutte queste caratteristiche le utilizziamo per descrivere la casa a qualcuno che vuole acquistarla. In 
programmazione, per ottenere un tale oggetto, è necessario definire i criteri che lo descrivono. Ecco un 
esempio: 


House 

[indirizzo 
tipo_di_casa 
numero_di_ camere 
numero_di_bagni 
ha_il_garage] 


Queste informazioni vengono utilizzate per descrivere la casa e sulla base di questo, la casa (House) si 
chiama classe. In realtà per descrivere una vera e propria casa, è necessario fornire informazioni più 
dettagliate per ciascuna delle caratteristiche di cui sopra, come per esempio: 


House: Mandela 

[indirizzo: V. Libertà 123 
tipo_di_casa: Monofamiliare 
numero_di camere: 4 
numero_di_bagni: 3 
ha_il_garage: Sì] 


In questo caso, la casa di nome Mandela non è più una classe, ma è una casa vera e propria 
esplicitamente descritta, pertanto, Mandela è un oggetto. Sulla base di questo, possiamo definire una 
classe come una tecnica utilizzata per fornire i criteri per definire un oggetto, che è il risultato di una 
descrizione basata su una classe. 


58.1 Le Proprietà di un Oggetto 


Nel nostro esempio della casa, abbiamo usato dei termini per descriverla, come: Indirizzo, Tipo di casa, 
numero di camere, numero di bagni etc. in programmazione invece le caratteristiche utilizzate per 
descrivere un oggetto sono indicate come sue proprietà. Mentre la maggior parte degli oggetti 
forniscono solo le caratteristiche per descriverli, altri possono eseguire azioni, ad esempio, una casa 
può essere utilizzata per proteggere le persone quando fuori piove. In programmazione, invece, 
un'azione che un oggetto può eseguire è indicato come metodo. 


In precedenza, abbiamo definito una classe Casa con le sue proprietà, ma a differenza di una proprietà, 


un metodo deve visualizzare delle parentesi sul lato destro per distinguerlo da una proprietà. Un 
esempio potrebbe essere: 
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House 

[indirizzo 
tipo_di_casa 
numero_di_camere 
numero_di_bagni 
ha_il_garage 
Proteggi_pioggia ()] 


Quando un oggetto ha un metodo, per accedere a tale metodo, si deve immettere il nome dell'oggetto, 
seguito da un punto, e dal nome del metodo con le parentesi. Ad esempio, se si dispone di un oggetto 
casa di nome Mandela e volete chiedere di proteggere dalla pioggia, si deve digitare: 


Mandela.Proteggi_pioggia () 


Questo è indicato anche come richiamare un metodo. 

Quando è stato chiesto di eseguire un'azione, un metodo può avere bisogno di uno o più valori con cui 
lavorare, se un metodo necessita di un valore, tale valore è chiamato argomento. Mentre un certo 
metodo può avere bisogno di un argomento, un altro metodo potrebbe averne bisogno più di uno e il 
numero di argomenti di un metodo dipendono dalla sua portata e sono visualizzati tra parentesi. 
Supponiamo di avere un oggetto casa e si vuole proteggere il suo contenuto, per svariate ragioni, per 
cui l'interno deve essere protetto per: 


La pioggia 
La polvere 
Il vento 

Il sole, etc. 


& 


Sulla base di questo, potrebbe essere necessario fornire informazioni aggiuntive per indicare perché o 
come la parte interna deve essere protetta. Per questo motivo, quando tale metodo viene chiamato, 
queste ulteriori informazioni devono essere fornite, tra le parentesi del metodo. Ecco un esempio: 


House 

[indirizzo 

tipo_di_casa 

numero_di_ camere 
numero_di_bagni 
ha_il_garage 
Proteggi_pioggia (ragione)] 


Come accennato in precedenza, un metodo può essere creato per prendere più di un argomento. In 
questo caso, gli argomenti sono separati da virgole. Ecco un esempio: 


House 

[indirizzo 

tipo_di_casa 

numero_di_ camere 
numero_di_bagni 

ha_il_garage 

Proteggi_pioggia (ragione, quando)] 
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Gli argomenti vengono utilizzati per aiutare l'oggetto ad eseguire l'azione prevista e una volta creato il 
metodo, può essere utilizzato varie volte e se un metodo necessita di un argomento, quando si 
richiama, è necessario fornire un valore, altrimenti il metodo non funzionerebbe. Per richiamare un 
metodo che richiede un argomento, si deve digitare il nome del metodo seguito dalla parentesi aperta 
"(" e seguito dal valore che sarà l'argomento e seguito da una parentesi chiusa ")". 


L'argomento che si passa può essere un valore costante, regolare o può essere il nome di un altro 
oggetto e se il metodo richiede più di un argomento, per richiamarlo, si devono digitare i valori per gli 
argomenti, nell'ordine esatto indicato, separati l'uno dall'altro da una virgola. 


Abbiamo detto che, quando si richiama un metodo che richiede un argomento, è necessario fornire un 
valore per l'argomento, ma c'è un'eccezione. A seconda di come è stato creato il metodo, può essere 
configurato per utilizzare un valore di default se non si fornisce un valore, ma non tutti i metodi 
seguono questa regola. 

Se un metodo che accetta un argomento ha un valore di default per questo, allora non c'è bisogno di 
fornire un valore quando si chiama questo metodo e tale argomento è considerato facoltativo, inoltre 
gli argomenti che hanno valori predefiniti possono essere utilizzati e non c'è bisogno di fornirli. 


58.2 Tecniche di Accesso ad un oggetto: L'enunciato Me 


Finora abbiamo visto che un oggetto dispone di proprietà e metodi e abbiamo anche visto come 
accedere a una proprietà di un oggetto. Per esempio, immaginate di avere una classe House definita 
come segue: 


House 

[indirizzo 
tipo_di_casa 
numero_di_camere 
numero_di_bagni 
ha_il_garage 
Proteggi_pioggia ()] 


Se si dispone di un oggetto denominato Gino e che è di tipo House, per accedere ad alcune delle sue 
proprietà, è necessario utilizzare il codice come segue: 


Gino.indirizzo 
Gino.tipodicasa 


Se si sta lavorando all'interno di un metodo della classe, per esempio, se si lavora nel corpo del metodo 
Proteggi pioggia, è anche possibile accedere alle proprietà nello stesso modo, questa volta senza il 
nome dell'oggetto. Ciò potrebbe essere fatto nel modo seguente: 


Proteggi_pioggia () 
indirizzo 
tipo_di_casa 
numero_di_ camere 
numero_di_bagni 
End 
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Quando si accede ad un membro di una classe all'interno di uno dei suoi metodi, è possibile precedere 
il membro con l'oggetto Me preceduto dall'operatore . (punto). Ecco un esempio: 


Proteggi_pioggia () 

Me. indirizzo 

Me. Tipo_di casa 

Me. Numero_di_ camere 
Me. Numero_di_bagni 
End 


Ricordate che l'oggetto Me viene utilizzato per accedere ai membri di un oggetto mentre si è all'interno 
di un altro membro dell'oggetto. 


58.3 Il Ciclo With 


Abbiamo visto che è possibile utilizzare il nome di un oggetto per accedere ai suoi membri. Ecco un 
esempio: 


Gino. indirizzo 

Gino. tipo_di_ casa 

Gino. numero_di_ camere 
Gino. Numero_di_bagni 


Invece di utilizzare il nome dell'oggetto ogni volta, è possibile avviare una sezione con la parola 
chiave With seguita dal nome dell'oggetto con espressione: 


With Gino 


End With 


Tra le parole chiave With e End With si inseriscono le linee di codice per accedere al membro della 
classe preceduto da un punto seguito dal membro desiderato. Ciò dovrebbe essere fatto nel modo 
seguente: 


With Gino 

.indirizzo 
.tipo_di_casa 
.numero_di_camere 
.numero_di_bagni 
.ha_il_garage 

End With 
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59. Introduzione alle collezioni in VBA 


Le Collection, (o Collezioni) sono una serie di elementi in cui ogni elemento ha le stesse caratteristiche, 
in altre parole, tutti gli elementi possono essere descritti nello stesso modo. In programmazione, una 
collezione è una serie di elementi in cui tutti gli elementi condividono le stesse proprietà e metodi, se 
presenti. VBA fornisce un oggetto Collection che è possibile utilizzare per memorizzare oggetti e dati e 
dispone di quattro proprietà: 


Add 
Count 
Item 
Remove 


AA 


Non ci sono restrizioni sul tipo di dati che possono essere memorizzati in un oggetto Collection, e 
oggetti con tipi di dati diversi possono essere memorizzati nello stesso oggetto Collection. Excel 
dispone di molte collezioni incorporate, per esempio una cartella di lavoro ha una collezione di fogli, un 
foglio di lavoro ha un insieme di celle e così via. Possiamo fare riferimento a un foglio di lavoro con il 
suo indice nella collezione. Per esempio: ActiveWorkbook.Worksheets (1).Visible 

Oppure se il foglio è stato nominato, è possibile anche fare riferimento col nome. 
ActiveWorkbook.Worksheets ("Dati"). Visible 


Un altro aspetto delle Collection è che sono simili agli array, ma molto spesso viene preferita la 
collezione rispetto alla matrice. La ragione per cui si desidera lavorare con le collezioni piuttosto che 
con gli array è che si vuole evitare di dover ridimensionare le matrici ogni volta. Gli array sono 
fondamentalmente utile solo a patto che si sa, in anticipo, le dimensioni della nostra raccolta dei dati. 


Le collezioni e gli array sono entrambi utilizzati con delle variabili di gruppo ed entrambi memorizzano 
una serie di oggetti simili, ad esempio un elenco di nomi o di paesi, ed è possibile manipolare 
facilmente e rapidamente un gran numero di elementi. Vediamo ora molto brevemente la differenza 
tra una variabile normale e un array. Se dobbiamo memorizzare i dati di uno studente si può facilmente 
farlo con una singola variabile in questo modo 


Dim stud As Long 
Stud = sheets(“Foglio1”).Range(“A1”) 


Tuttavia si avrà da affrontare la manipolazione di dati per più studenti, pertanto immaginate di voler 
archiviare i dati di 100 studenti, se non è stata utilizzata una collezione o un array si avrebbe bisogno di 
creare un centinaio di variabili, una variabile per ogni studente. Inoltre un altro problema è che si 
devono utilizzare queste variabili singolarmente, cioè se si desidera memorizzare 100 valori allora 
abbiamo bisogno di una riga di codice ogni volta che si desidera memorizzare un valore in una variabile. 


Dim stud1 As Long 
Dim stud2 As Long 
Dim stud3 As Long 
stud1 = sheets(“Foglio1”).Range (“A1”) 
stud2 = sheets(“Foglio1”).Range (“A2”) 
stud3 = sheets(“Foglio1”).Range (“A3”) 


Come si può vedere nell'esempio sopra, la scrittura di codice come questo significherebbe dover 
scrivere centinaia di righe di codice ripetitivo, mentre se si utilizza una raccolta o un array è solo 


303 


Microsoft® 


for Applications 


necessario dichiarare una variabile e utilizzare un ciclo per scorrerne tutti gli elementi, per cui con una 
raccolta è sufficiente una riga per poter leggere ulteriori valori. Se riscriviamo l'esempio precedente 
utilizzando una collezione, abbiamo solo bisogno di un paio di righe di codice 


Dim Cstud As New Collection ‘crea la collezione 

Dim Col1 As Range ‘Leggi 100 valori della raccolta 
For Each Col1 In Foglio1.Range("A1:A100") 

Cstud.Add Col1.Value 

Next Coll 


Con questo esempio abbiamo visto quello che le collezioni e gli array hanno in comune, allora, qual è la 
differenza e perché usare uno al posto dell'altro? La differenza principale è che con una serie 
normalmente si impostano le dimensioni una sola volta, questo significa che si conosce la dimensione 
prima di iniziare ad aggiungere elementi. Mi spiego con un esempio. Immaginate di avere un foglio di 
lavoro con un elenco di studenti e uno studente per riga 


(Cognome Nome Materia Nazione 

| Abate Carmine Storia Italia 

‘Aiello Michele Lettere Spagna 

\Aliberti Filly Lingue Francia 

| Apostolico Maria Storia Italia 

\Apreda Daniele Lettere Germania 

| Boccardo Tina Storia Grecia 

|Caldieri Giuseppina Matematica Portogallo 

\Cantiello Lara Storia Spagna 

\Carrella Biagio Lingue Spagna 

\Cerrato Maurizio Scienze Italia 3 5 . 

|Colombo Verusca Matematica Germania SI —- SEA ia é 

| informazioni di ogni studente, in questo 
Cosenza Biagio Informatica Inghilterra esempio si può facilmente contare il 
suna Giuseppe Fisica Grecia numero di righe per ottenere il numero di 
\D'amaro Michele Filosofia Russia studenti, in altre parole si conosce il 

De Crescenzo Ilaria Informatica Polonia numero di elementi in anticipo. 

Dim stud1 As Long 

stud1 = Sheets("Foglio1").Range("A" & Rows.Count).End(xIUp).Row ‘trova l'ultima riga 

Dim arr() As Long ‘Crea un array di dimensione corretta 


ReDim arr(1 To stud1) 


Nel codice di esempio, si può vedere che si ottiene il numero di studenti contando le righe, possiamo 
quindi utilizzare questo sistema per creare un array di dimensioni corrette. Nel caso in cui non 
conosciamo il numero di elementi in anticipo e vogliamo estrarre solo gli studenti con un dato criterio. 
Ad esempio solo gli studenti provenienti dalla Spagna o dall’Italia che studiano la matematica o la 
storia, in altre parole non sarà come selezionare uno studente e leggere i loro dati dal foglio di lavoro. 


Immaginate anche che gli studenti possono essere aggiunti o rimossi dalla lista, quindi il numero di 
studenti non è fisso e varia, e non si conosce il numero di studenti in anticipo, quindi non sappiamo che 
dimensione assegnare alla matrice per crearla. Si potrebbe creare un array di grandi dimensioni, ma si 
avrebbero un sacco di slot vuoti, oppure leggere 50 studenti da un massimo di 1.000, ma allora si 
avrebbe 950 slot di matrice non utilizzati. Si potrebbe anche ridimensionare la matrice per ogni 
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elemento come viene aggiunto, ma questo metodo è molto inefficiente e piuttosto disordinato, quindi, 
possiamo utilizzare una Collection in questo modo. 


Dim coll As New Collection 
coll.Add “Gino” 

coll.Add “Mauro” 
coll.Remove 1 


Quando si aggiunge o si rimuove un elemento in una collezione, VBA fa tutto il ridimensionamento da 
solo, non è necessario specificare le dimensioni o allocare nuovi spazi, tutto quello che si deve fare è 
aggiungere un elemento o rimuoverlo. Le raccolte sono molto più facili da usare rispetto agli array 
soprattutto per chi non ha molta pratica nella programmazione, il più delle volte si fanno tre cose con 
le collezioni: Si creano, si aggiungono elementi e si leggono le voci 


Si deve però tener presente nella scelta del metodo da adottare che le Collezioni hanno anche uno 
svantaggio, infatti sono procedure in sola lettura, pertanto si può aggiungere o rimuovere un elemento, 
ma non è possibile modificarne il valore. Se si ha la necessità di cambiare i valori in un gruppo di voci, 
allora è meglio utilizzare un array. Ora che sappiamo quando e perché utilizzare una collezione diamo 
un'occhiata a come usarle. È possibile dichiarare e creare in una sola riga del codice una collezione in 
questo modo: Dim coll As New Collection 


Come si può vedere non è necessario specificare le dimensioni e una volta che la collezione è stata 
creata è possibile aggiungere facilmente elementi, inoltre è possibile dichiarare e quindi creare la 
collezione, quando se ne ha bisogno. 


Dim coll As Collection ‘Dichiarazione 
Set coll = New Collection ‘crea la raccolta 


La differenza tra questi metodi è che nel primo la raccolta viene sempre creata, mentre nel secondo 
metodo viene creata solo quando si raggiunge la linea Set, così si potrebbe impostare il codice per 
creare solo la raccolta se una certa condizione viene soddisfatta 


Dim coll As Collection ‘Dichiarazione 

If filefound = True Then 

Set coll = New Collection ‘crea la raccolta se viene trovato un file 
End If 


Il vantaggio di questo metodo è minimo, l'allocazione di memoria era un parametro importante tanti 
anni fa, quando la memoria del computer era limitata, a meno che non si stia creando un enorme 
numero di collezioni su un PC lento non si noterà alcun beneficio. Utilizzando la parola chiave Set, la 
raccolta si comporterà in modo diverso rispetto a quando si imposta la raccolta a Nothing, questa 
istruzione viene usata per rimuovere tutti gli elementi 


Set coll = Nothing 
Un punto importante da capire è che ciò che fa una collezione dipende da come è stata creata, come 


abbiamo visto è possibile creare una collezione dichiarandola utilizzando New o utilizzando Set e New. 
Diamo ora un'occhiata a entrambi i tipi 
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59.1 Creare una Raccolta utilizzando New 


Quando si aggiunge un nuovo elemento VBA imposta automaticamente la variabile Collection a una 
raccolta valida, in altre parole se si imposta la raccolta a Nothing vengono svuotati tutti gli elementi e 
se poi si aggiunge un elemento si avrà una collezione con una sola voce. Ciò rende più semplice per 
svuotare una raccolta, il codice seguente illustra questo aspetto 


Sub Test () 

Dim coll As New Collection ‘crea la raccolta e aggiungi degli elementi 
Set coll = Nothing 

Coll.Add “Pippo” 

End Sub 


59.2 Creare una Raccolta utilizzando Set e New 


Quando si utilizza la parola chiave Set per creare una collezione è necessario creare nuovamente la 
raccolta, se successivamente viene impostata a Nothing, nel codice che segue, dopo aver impostato la 
collezione a Nothing, si deve poi impostarla di nuovo utilizzando la parola chiave New, se non si esegue 
questa operazione si ottiene l'errore: "Variabile o Oggetto non impostato". 


Sub Test () 

Dim coll As Collection ‘crea la collezione 
Set coll = New Collection 

Coll.Add “Pippo” 

Set coll = Nothing 

Set coll = New Collection 

Coll.Add “Franco” 

End Sub 


59.3 Rimuovere tutta la Collezione - un metodo alternativo 


Il seguente metodo rimuove tutti gli elementi di una collezione, ma è molto lento, il vantaggio è che 
funziona indipendentemente dal modo in cui si crea la collezione. 


Sub elimina (ByRef coll As Collection) 
Dim k As Long 

For k = coll.Count To 1 Step -1 
Coll.Remove K 

Next k 

End Sub 


59.4 Aggiunta di elementi a una raccolta 


Per aggiungere elementi a una Collezione è possibile farlo utilizzando la proprietà Add seguita dal 
valore che si desidera aggiungere. 


coll.Add “Pera” 
coll.Add “Mela” 
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Quando si aggiungono elementi in questo modo vengono aggiunti al successivo indice disponibile, 
nell'esempio sopra riportato, Pera si aggiunge alla posizione 1 e Mela alla posizione 2. 


59.5 I Parametri Before e After 


È possibile utilizzare i parametri Before e After per specificare dove si desidera posizionare l'elemento 
della collezione. 


coll.Add “Pera” 
coll.Add “Mela” 
coll.Add “Limone”, Before: =1 ‘Aggiungere Limone come prima voce 


Dopo questo codice la collezione è nell'ordine 


1. Limone 
2. Pera 
3. Mela 


coll.Add “Pera” 
coll.Add “Mela” 
coll.Add “Limone”, After: =1 ‘Aggiungere Limone DOPO la prima voce 


Dopo questo codice la collezione è nell'ordine 
1. Pera 

2. Limone 

3. Mela 


59.6 Accesso agli elementi di una collezione 


Per accedere alle voci di una raccolta è sufficiente utilizzare l'indice, che come abbiamo già visto, è la 
posizione della voce nella raccolta in base all'ordine che sono stati aggiunti. L'ordine può anche essere 
impostato utilizzando il parametro Before o After. 


Sub Test () 

Dim coll As New Collection 

coll.Add “Pera” 

coll.Add “Mela” 

Debug.Print coll (1) ‘ stampare Pera nella finestra Immediata 

coll.Add “Fragola”, Before:= 1 ‘Aggiungere fragola come prima voce 

Debug.Print coll (1) ‘ stampare Fragola nella finestra IMmediata 

Debug.Print coll (2) ‘ stampare Pera nella finestra Immediata che ora è nella 2° posizione 
End Sub 


È inoltre possibile utilizzare la proprietà Item per accedere a un elemento della collezione, che è il 
metodo predefinito della raccolta in modo che le linee di codice siano equivalenti 


Debug.Print coll (1) 
Debug.Print coll.Item (1) 
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Abbiamo detto che non è possibile modificare il valore di un elemento in una collezione, perché 
quando si accede a un elemento di una raccolta è di sola lettura, per cui se si tenta di scrivere una voce 
della raccolta si ottiene un errore. Il seguente codice produce un errore "Necessario oggetto" 


Sub Test () 

Dim coll As New Collection 

Coll.Add “Mela” 

Coll (1) = “Pera” ‘questa riga genera un errore 
End Sub 


59.7 Aggiungere tipi di dati diversi 


È inoltre possibile aggiungere diversi tipi di oggetti alla collezione. 


coll.Add “Mela” 
coll.Add 45 
coll.Add N° 12/12/2015 # 


Il codice seguente visualizza il tipo e il nome di tutti i fogli della cartella di lavoro corrente. 


Ma) Per accedere a tipi di dati diversi è necessario che la variabile sia dichiarata come Variant o 
avrete un errore. 


Si utilizza un ciclo For Each...Next quando si desidera ripetere un set di istruzioni per ciascun elemento 
di una raccolta o di una matrice. 


Sub Test () 

Dim sh As Variant 

For Each sh In ThisWorkbook.Sheets 

Debug.Print TypeName (sh), sh.Name ‘ stampa nella finestra immediate il nome del foglio e il tipo di 
foglio 

Next sh 

End Sub 


59.8 Aggiunta di elementi utilizzando una chiave (Key) 


È inoltre possibile aggiungere elementi utilizzando una chiave come l'esempio sotto riportato 


Coll.Add Item:=45, Key:="Gino” 
Debug.Print "Hai inserito: ",coll("Bill") 


Ho incluso i nomi dei parametri per rendere l'esempio più chiaro, tuttavia non è necessario, basta 


ricordare la chiave, che è il secondo parametro, e deve essere una stringa univoca. Il codice seguente 
mostra un secondo esempio di utilizzo di chiavi 
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Sub Test() 

Dim coll1 As New Collection 
coll1.Add 45, "Gino" 
coll1.Add 67, "Franco" 
coll1.Add 12, "Laura" 
coll1.Add 89, "Bruno" 
Debug.Print coll1("Franco") 
Debug.Print coll1("Bruno") 

End Sub 


Utilizzando la chiave si hanno tre vantaggi: 
vY Se l'ordine cambia il codice può accedere lo stesso alla voce corretta 
v È possibile accedere direttamente alla voce senza leggere l'intera collezione 
v Il codice è più leggibile 
Nella collezione VBA delle cartelle di lavoro è molto meglio accedere alla cartella di lavoro con la chiave 


(il nome) in quanto l'indice è poco affidabile perché dipende da quando sono stati aperti e quindi è 
molto casuale. 


59.9 Quando utilizzare le chiavi 


Un esempio di quando usare le chiavi è il seguente: Immaginate di avere una collezione di nomi di 
10.000 studenti con i loro ID (indici), si potrebbe aggiungere i 10.000 studenti ad una collezione 
utilizzando il loro ID studente come chiave. Quando si legge un ID dal foglio di lavoro è possibile 
accedere direttamente al nome dello studente. 


59.10 Problemi ad usare le chiavi nelle collezioni 


Ci sono tre problemi con l'utilizzo delle chiavi nelle collezioni 


v Non è possibile controllare se la chiave esiste 
Y Non è possibile modificare la chiave 
v Non è possibile recuperare la chiave 


VBA contiene una classe simile alla Collezione chiamata dizionario, che permette di utilizzare sempre le 
chiavi per aggiungere un elemento. Il dizionario fornisce ulteriori funzionalità per lavorare con le chiavi 
e se avete bisogno di più funzionalità con le chiavi, si potrebbe trovare il Dizionario molto utile. 
Tornando alle Collezioni, se si ha bisogno di accedere direttamente a un singolo elemento possono 
essere molto utili, in caso contrario, non è conveniente usarle. 


59.11 Accederea tutti gli elementi di una collezione 


Per accedere a tutti gli elementi di una collezione è possibile utilizzare un ciclo For o un For Each. 
Diamo un'occhiata a questi singolarmente. 
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59.12 Utilizzo del ciclo For 


Con un normale ciclo For, si utilizza l'indice per accedere a ciascuna voce. L'esempio seguente stampa il 
nome di tutte le cartelle di lavoro aperte 


Sub Test() 

Dim k As Long 

For k = 1 To Workbooks.Count 
Debug.Print Workbooks(k).Name 
Next k 

End Sub 


Come si può vedere nel codice abbiamo usato come indice 1 con Workbooks.Count, in quanto il primo 
elemento è sempre in posizione 1 e l'ultimo elemento è sempre nella posizione specificata dalla 
proprietà Count dell'insieme. Il prossimo esempio stampa tutti gli elementi di una collezione creati 
dagli utenti. 


Sub Test() 
Dim coll2 As New Collection 'Dichiarare e creare la raccolta 
coll2.Add "Mela" ' aggiungere gli articoli 


coll2.Add "Pera" 
coll2.Add "Fragola" 
Dim i As Long ' stampare tutte le voci 
Fori= 1 To coll2.Count 
Debug.Print coll2(i) 
Next i 
End Sub 


59.13 Utilizzo del ciclo For Each 


Il ciclo For Each non usa l'indice ed il formato è mostrato nel seguente esempio 


Sub Test() 
Dim sh As Variant 
For Each sh In Workbooks 
Debug.Print sh.Name 
Next 
End Sub 


Il formato del ciclo For è: For i = 1 To coll2.Count...... Next i dove i è una variabile Long e coll2 è una 
collezione. 


Il formato del ciclo For Each è: For Each var In coll2........ Next 


dove var è una variabile Variant e coll2 è una raccolta. È importante comprendere la differenza tra i 
due cicli, il ciclo For Each: 


Y E’ più veloce 


E più ordinato da scrivere 
Y Ha un solo ordine, dal più basso al più alto 
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Mentre invece Il Ciclo For 


v_ E’ più lento 
Y E meno ordinato da scrivere 
Si può accedervi con un ordine diverso 


Se mettiamo a confronto i due cicli il For Each è considerato più veloce rispetto al ciclo For ed è più 
ordinato da scrivere, soprattutto se si utilizzano cicli annidati e si ha meno probabilità di avere errori. 
L'ordine del ciclo For Each è sempre dall’ indice più basso al più alto e se si vuole ottenere un ordine 
diverso, allora si deve utilizzare il ciclo For, dove l'ordine può essere modificato. Inoltre è possibile 
leggere le voci in senso inverso, leggere una sezione degli articoli o è possibile leggere ogni due fogli. 


Sub Test() 

Dim i As Long 

For i = ThisWorkbook.Worksheets.Count To 1 Step -1 ‘scorrere i fogli da destra a sinistra 
Debug.Print ThisWorkbook.Worksheets(i).Name 

Next i 

Fori=1T03 ‘scorrere i primi 3 fogli 
Debug.Print ThisWorkbook.Worksheets(i).Name 

Next i 

Fori= 1 To ThisWorkbook.Worksheets.Count Step 2 ‘scorrere ogni due fogli 
Debug.Print ThisWorkbook.Worksheets(i).Name 

Next i 

End Sub 


Le collezioni sono una parte molto utile di VBA, sono più facili da usare rispetto agli Array e sono molto 


utili quando il numero di elementi cambia. Hanno solo quattro proprietà: Add, Remove, Count e Item e 
questo li rende molto facile da padroneggiare. 
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60. Oggetti e Collezioni nei moduli di classe 


Una raccolta è una serie di elementi in cui ogni elemento ha le stesse caratteristiche, in altre parole, 
tutti gli elementi possono essere descritte nello stesso modo. In programmazione, una collezione è una 
serie di elementi in cui tutti gli elementi condividono le stesse proprietà e metodi, se presenti. Ad 
esempio, una raccolta può essere fatta dai dipendenti di una società in cui ogni dipendente può essere 
descritto con le stesse caratteristiche ad esempio il nome. 


60.1 Creazione di una Collezione 


Per supportare le collezioni, il linguaggio Visual Basic è dotato di una classe denominata Collection, in 
realtà, la Collezione di classe che ci accingiamo a studiare è quella definita in VBA e può essere usata 
per creare una collezione. Per fare questo, si deve dichiarare una variabile di tipo Collection. Ecco un 
esempio: Dim dipendenti As Collection 


Dopo aver dichiarato la variabile, si deve allocare lo spazio in memoria per la stessa, utilizzando la 
parola chiave Set per assegnare una nuova istanza alla variabile. Ecco un esempio: 


Dim dipendenti As Collection 
Set dipendenti = New Collection 


Invece di creare sempre una nuova collezione, a meno che non si debba, VBA è dotato di molte 
collezioni standard integrate, in modo da evitare di creare sempre la propria collezione e sono indicate 
come le collezioni incorporate. 

Le classi Collection incorporate sono derivati dalla classe Collection di Visual Basic e hanno tutte le loro 
funzionalità primarie ereditate dalla collezione di classe. Questo significa anche che tutto ciò che 
menzioneremo per la raccolta classe si applica a qualsiasi raccolta incorporata. Per utilizzare una 
collezione precostituita, è possibile dichiarare una variabile. 

Ecco un esempio: Dim CurrentSheets As Worksheets 


In realtà, quando Microsoft Excel viene avviato, la maggior parte (se non tutte) delle classi sono già 
disponibili in modo che non c'è bisogno di dichiarare la loro variabile prima di utilizzarle. 


60.2 Caratteristiche e operazioni su una raccolta 


L'operazione primaria da effettuare su una collezione consiste nell'aggiungere elementi, a sostegno di 
questa, la Collezione classe è dotata del metodo Add . La sua sintassi è: 


Public Sub Add(_ 
ByVal Item As Object, _ 
Optional ByVal Key As String, _ 
Optional ByVal { Before | After } As Object = Nothing) 


Questo metodo richiede tre argomenti, ma solo il primo è necessario e la voce "argomento" specifica 
l'oggetto da aggiungere alla collezione. Ecco un esempio: 
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Dim dipendenti As Collection 
Set dipendenti = New Collection 
dipendenti.Add "Patrizia" 


Allo stesso modo, è possibile aggiungere il numero di elementi che si desidera: 


Dim dipendenti As Collection 

Set dipendenti = New Collection 
dipendenti.Add Patrizia” 
dipendenti.Add Giacomo” 
dipendenti.Add “Alice” 
dipendenti.Add Franco” 


Ricordate che se si sta utilizzando una delle classi standard precostituite, non è necessario dichiarare 
una variabile, si può solo richiamare il metodo Add per aggiungere un elemento. Ecco un esempio: 
Worksheets.Add 


60.3 Accesso a un elemento in una raccolta 


Le voci di una raccolta sono organizzate in una sequenza in cui ogni elemento contiene un indice 
specifico. Il primo elemento dell'insieme possiede un indice di 1, il secondo elemento contiene un 
indice di 2, e così via. Per accedere alle voci di una raccolta, la collezione di classe è dotata di una 
proprietà denominata Item. Ci sono due modi per utilizzare questa proprietà, uno utilizzando 
formalmente il valore della proprietà, digitando il nome dell'oggetto collezione, seguito dall'operatore 
periodo e seguito da un articolo e le parentesi opzionali. Dopo la proprietà Item o all'interno delle sue 
parentesi, si deve digitare l'indice della voce desiderata. Ecco un esempio: 


Dim dipendenti As Collection 

Set dipendenti = New Collection 
dipendenti.Add Patrizia” 
dipendenti.Add Giacomo” 
dipendenti.Add ”Alice” 
dipendenti.Add Franco” 
dipendenti.Item 2 


Oppure si possono usare anche le parentesi: 


Dim dipendenti As Collection 

Set dipendenti = New Collection 
dipendenti.Add ” Patrizia” 
dipendenti.Add Giacomo” 
dipendenti.Add ”Alice” 
dipendenti.Add Franco” 
dipendenti.Item (2) 


Invece di utilizzare la proprietà Item, è possibile applicare l'indice direttamente all'oggetto collezione. 
Ecco alcuni esempi: 
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Dim dipendenti As Collection 
Set dipendenti = New Collection 
dipendenti.Add Patrizia” 
dipendenti.Add Giacomo” 
dipendenti.Add ”Alice” 
dipendenti.Add Franco” 
dipendenti.ltem 2 
dipendenti.Item (2) 
dipendenti 2 
dipendenti (2) 


Tutte queste tecniche consentono di accedere alla voce di cui abbiamo specificato il suo indice 


60.4 Rimozione di un elemento da una raccolta 


In contrasto con l'aggiunta di un nuovo elemento, è possibile eliminare uno. A sostegno di questa 
operazione, la classe Collection è dotato di un nome metodo Remove. La sua sintassi è: 


Public Sub Remove(Index As Integer) 


Questo metodo accetta un argomento e quando si richiama, si deve passare l'indice della voce che si 
desidera eliminare. Ecco un esempio: 


Dim dipendenti As Collection 

Set dipendenti = New Collection 
dipendenti.Add Patrizia” 
dipendenti.Add Giacomo” 
dipendenti.Add ”Alice” 
dipendenti.Add Franco” 
dipendenti.Remove 2 


Questo codice elimina il secondo elemento della collezione. 


60.5 Numero di elementi in una Collezione 


Quando si inizia una nuova collezione, ovviamente è vuota e il suo numero di elementi è 0. Per tenere 
traccia del numero di elementi in una collezione, la collezione di classe è dotata di una proprietà 
denominata Count il cui tipo è un numero intero. Si deve ricordare che tutte le classi di Collection 
incorporate ereditano il loro comportamento dalla classe Collection, ciò significa che le classi di 
raccolta incorporate sono dotate di una proprietà denominata Count per contenere il numero di 
elementi. 


Abbiamo visto come è possibile aggiungere nuovi elementi a un insieme e ogni volta che si aggiunge un 
nuovo elemento alla raccolta, la proprietà Count aumenta di 1. Sappiamo anche come rimuovere un 
elemento da una raccolta e ogni volta che un elemento esistente viene eliminato, il valore della 
proprietà Count è diminuito di 1. 

In qualsiasi momento, possiamo conoscere il numero di elementi di una collezione, ottenendo il valore 
della sua proprietà Count 
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61. Classi, oggetti ed eventi personalizzati 


In VBA è possibile creare oggetti personalizzati attraverso la definizione di classi e l'inserimento di 
moduli di classe. È inoltre possibile creare eventi di classe e procedure di evento personalizzati integrati 
in Excel. Con questa premessa risulta abbastanza chiaro che tramite VBA è possibile definire e creare 
delle classi di oggetti che possano soddisfare le esigenze del singolo utente. Per definizione la 
programmazione orientata agli oggetti prevede di raggruppare in un’unica entità, ovvero in una classe, 
sia la struttura dati che le procedure che operano su di essa, creando un oggetto unico dotato di 
proprietà e metodi che operano sull'oggetto stesso. 


La classe è un modello per i nuovi oggetti che verranno creati e sono utilizzate per memorizzare, 
elaborare e rendere disponibili i dati, in quanto oltre ai dati contengono anche il codice per gestirli con 
procedure e metodi come le Sub e le Function. Una classe viene creata inserendo un modulo di classe 
nel progetto VBA e consente di creare i propri oggetti con proprietà e metodi molto simili ad altri 
oggetti come Range, foglio, grafico, etc. Il modulo di classe ha una serie di procedure che includono 
variabili e costanti che definiscono le sue proprietà che possono essere manipolate in un modulo di 
classe con le procedure Property Let, Property Get e Property Set. Per accedere alle proprietà e metodi 
dell'oggetto classe da una routine in un modulo di codice, si dichiara una variabile oggetto del tipo della 
classe. 


Si può programmare in VBA, senza creare oggetti personalizzati che in realtà non aumentano la 
funzionalità del codice, tuttavia, l'utilizzo di oggetti personalizzati rende la codifica meno complessa e 
più semplice avendo un collegamento nel codice rendendo la codifica auto documentata denominando 
le classi in modo appropriato, e questo aiuta il debug e il codice riutilizzo. 


61.1 Inserire un modulo di classe 


In Visual Basic Editor (VBE), per inserire un modulo di classe si deve cliccare su Inserisci - Modulo di 
classe, in alternativa, nella finestra dei progetti, cliccare con il pulsante destro del mouse sul nome del 
progetto e sul menu che appare cliccare su Inserisci e quindi scegliere Modulo di classe. In alternativa, 
sulla barra degli strumenti standard in VBE, cliccare sul pulsante Inserisci e quindi scegliere Modulo di 
classe. Questo crea una classe vuota con il nome di Class1. Per rimuovere o eliminare un modulo di 
classe, si deve cliccare con il tasto destro del mouse dopo aver selezionato il modulo nella finestra dei 
progetti e quindi fare clic su Rimuovi 


61.2 Le Istanze di Proprietà di un modulo di classe 


C'è una grande differenza tra una variabile semplice e una variabile oggetto, la variabile oggetto non è 
che un puntatore all’interno della memoria e si dovrà creare esplicitamente un oggetto e salvare la sua 
posizione nella variabile oggetto. Questo processo si chiama creare una nuova istanza di un oggetto 

o istanziare un oggetto. 

Poiché gli oggetti sono diversi dalle variabili, Visual Basic for Applications utilizza una speciale istruzione 
chiamata istruzione Set che ha due forme. 


1) Set VariabileOggetto = New NomeClasse 


In questa forma, l'istruzione Set crea un nuovo oggetto basato su NomeClasse, ciò significa che Visual 
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Basic allocherà memoria per l'oggetto e salverà la posizione in memoria nella classe VariabileOggetto. 
2) Set VariabileOggetto = EspressioneOggetto 


Nella seconda forma, l'istruzione Set fa due cose: prima di tutto rilascia l'oggetto a cui puntava, quindi 
salva un puntatore a un oggetto già esistente in VariabileOggetto. 


La proprietà /nstancing di un modulo di classe è impostata su Private di default che non permette a un 
progetto esterno di lavorare con le istanze di quella classe, si deve impostare la 

proprietà /Instancing per PublicNotCreatable per consentire a progetti esterni, con un riferimento al 
progetto contenente la classe definita, per accedere e utilizzare istanze della classe. Notare che 
l'impostazione di PublicNotCreatable ancora non consente al progetto esterno di istanziare (cioè creare 
o chiama all'esistenza) l'oggetto classe o un'istanza della classe, che può essere istanziato solo dal 
progetto che contiene la definizione della classe. Si noti che il progetto esterno può utilizzare un'istanza 
della classe definita se il progetto di riferimento ha già creato tale istanza. 


Come già accennato, in VBA è possibile creare i propri oggetti personalizzati attraverso la definizione di 
classi. Una classe viene creata inserendo un modulo di classe e per accedere alle proprietà e metodi 
della classe dell'oggetto da una routine in un modulo di codice, è necessario creare una nuova istanza 
dell'oggetto di classe. Si noti che possono essere create pluralità di istanze a un oggetto di classe. Ci 
sono due modi per creare un'istanza, uno con un codice a due-line o in alternativa con un codice a riga 
singola. 


Per creare un'istanza di una classe Two-line si deve utilizzare l'istruzione Dim per creare una variabile 
(studente) e definirlo come un riferimento alla classe (Studenti): Dim studente As Studenti, mentre per 
creare un nuovo riferimento oggetto utilizzando la parola chiave New, indicando il nome della classe 
(Studenti) che si desidera creare un'istanza, dopo la parola chiave New: 

Set studente = New Studenti 


In alternativa si può usare un codice a linea singola per creare un'istanza di una classe, in questo caso 
l'oggetto Studenti viene istanziato solo quando il metodo di classe viene chiamato 
Dim studente As New Studenti 


61.3 Creare Proprietà della classe 


Un modo per creare una proprietà di classe è quello di dichiarare una variabile pubblica nel modulo di 
classe, e questa proprietà sarà in lettura-scrittura, l'altro modo è quello di utilizzare procedure di 
proprietà per creare una variabile privata per contenere i valori e utilizzare istruzioni di proprietà (cioè 
Property Let, Property Set e Property Get). La creazione di proprietà mediante una variabile pubblica, 
anche se semplice, non è generalmente preferibile perché non è flessibile, mentre invece utilizzando le 
dichiarazioni di proprietà sarà possibile impostare una proprietà di sola lettura o sola scrittura in 
aggiunta a lettura-scrittura, mentre l'uso di una variabile pubblica creerà solo le proprietà in lettura- 
scrittura. Inoltre, utilizzando le istruzioni della struttura è possibile eseguire il codice per calcolare i 
valori come proprietà che utilizza, mentre una variabile pubblica non consente l'uso di codice per 
impostare o restituire il valore di una proprietà. 
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61.4 Creare Metodi in un modulo di classe 


Oltre alle proprietà, gli oggetti possono anche avere uno o più metodi, un metodo è definito 

come Sub e Funzioni ed è creato con le procedure di sub-routine e funzioni. Un metodo è una sub- 
routine contenente un insieme di codici che eseguono un'azione o un'operazione sui dati all'interno 
della classe, o una funzione che contiene un insieme di codici che restituisce un valore dopo 
l'esecuzione di un'operazione. In un modulo di classe, solo se il metodo è dichiarato pubblico può 
essere chiamato da un'istanza di questa classe, altrimenti se un metodo viene dichiarato privato può 
essere chiamato solo da altri metodi all'interno della classe. Si noti, che di default la procedura è 
pubblica se non vengono specificate le parole chiave pubbliche o private. 


61.5 Utilizzo di Procedure di Proprietà 


Le procedura di proprietà sono un insieme di codici che creano e manipolano le proprietà 
personalizzandole per un modulo di classe. Una procedura Property è dichiarata da una 
dichiarazione Property Set, Property Let o Property Get e termina con un'istruzione End 

Property. Property Let viene utilizzata per assegnare un valore di sola scrittura a una proprietà 

e Property Get restituisce o recupera il valore di una proprietà di sola lettura, che può essere solo 
restituito, ma non impostato. 

Property Set assegna un valore di sola scrittura e viene utilizzata per impostare un riferimento a un 
oggetto. Le procedure di proprietà sono solitamente definite in coppia, Property Let e Property 
Get o Property Set e Property Get, si tenga presente che una procedura creata con Property 

Let consente all'utente di modificare o impostare il valore di una proprietà, mentre l'utente non può 
impostare o modificare il valore di una proprietà di sola lettura (cioè Property Get). 


Una procedura di proprietà può fare tutto ciò che è consentito all'interno di una routine, come 
eseguire un'azione o un calcolo sui dati. Una procedura Property Let (0 Property Set) è una procedura 
indipendente che può passare argomenti, eseguire azioni come da un insieme di codici e cambiare il 
valore dei suoi argomenti, come una routine Get o una funzione, ma non restituisce un valore come 
loro. Una procedura per ottenere la proprietà è anche una procedura indipendente che possa passare 
argomenti, eseguire azioni come da un insieme di codici e cambiare il valore dei suoi argomenti, come 
una procedura Property Let (o Property Set), e può essere usata in modo simile a una funzione che 
ritorni il valore di una proprietà. 


Una procedura Property Get accetta un argomento in meno della dichiarazione Property Let o Property 
Set e deve essere dello stesso tipo di dati come il tipo di dati dell'ultimo argomento nella dichiarazione 
Property Let o Property Set associata. La dichiarazione Property Get utilizzerà lo stesso nome di 
proprietà come utilizzato nella dichiarazione Property Let o Property Set associata. 


Una procedura Property Let può accettare più argomenti, e in questo caso l'ultimo argomento contiene 
il valore da assegnare alla proprietà, questo ultimo argomento nella lista degli argomenti è il valore 
della proprietà impostata dalla procedura chiamante. Il nome e il tipo di dati di ogni argomento in una 
procedura Property Let e il suo corrispondente nella routine Property Get dovrebbe essere la stessa, 
fatta eccezione per l'ultimo argomento nella procedura Property Let che è supplementare. Nel caso di 
una procedura Property Let con un singolo argomento (è richiesto almeno un argomento da definire), 
questo argomento contiene il valore da assegnare alla proprietà ed è il valore fissato dalla procedura 
chiamante, in questo caso la procedura Property Get non avrà alcun argomento. 
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Una procedura Property Set può accettare più argomenti, e in questo caso l'ultimo argomento 
contiene il riferimento all'oggetto effettivo per la proprietà. Nel caso di una procedura Property Set con 
un singolo argomento (è richiesto almeno un argomento da definire), questo argomento contiene il 
riferimento all'oggetto per la proprietà. Il tipo di dati dell'ultimo argomento o il singolo argomento 
deve essere un tipo di oggetto o un valore Variant. 


La procedura Property Set è simile e una variazione della procedura Property Let ed entrambi vengono 
utilizzati per impostare i valori. Una procedura Property Set viene utilizzata per creare le proprietà degli 
oggetti che sono in realtà puntatori ad altri oggetti, mentre una procedura Property Let assegna i valori 
alle proprietà scalari come stringhe, interi, date, etc. Di seguito è riportata la sintassi per le 
dichiarazioni delle tre Procedura di proprietà. 


Property Get PropertyName(argomento_1, argomento_2, ..., argomento_n) As Type 
Property Let PropertyName(argomento_1, argomento_2, ..., argomento_n+1) 
Property Set PropertyName(argomento_1, argomento_2, ..., argomento_n+1) 


Esempio: Creare una classe Properties utilizzando procedure di proprietà. 


Private nomeStud As String, votoStud As Double 
Public Property Let Name(strN As String) 
nomeStud = strN ‘si dichiara public per poterla richiamare da un'istanza in un altro modulo 
End Property 
Public Property Get Name() As String 
Name = nomeStud restituisce la proprietà Name 
End Property 
Public Property Let voto(ivoto As Double) 
votoStud = (ivoto / 80) * 100 ‘assegna la proprietà voti 
End Property 
Public Property Get voto() As Double 
voto = votoStud 'restituisce la proprietà voti 
End Property 


Public Function valuT() As String 
Dim valuta1 As String 
If votoStud >= 80 Then 


valutal = "A" 
Elself votoStud >= 60 Then 
valutal = "B" 
Elself votoStud >= 40 Then 
valutal = "C" 
Else 
valuta1 = "Bocciato" 
End If 


valuT = valutal 
End Function 


Inserire il codice sotto riportato in un modulo standard 
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Sub studenti() 


Dim studente As class_Stud 'si crea una variabile e si definisce come un riferimento alla 
classe. 
Set studente = New class_Stud 'si crea un nuovo riferimento a un oggetto 

studente.Name = "Marco" 

MsgBox studente.Name 'si richiama la proprietà Name nell'oggetto studente 
studente.voto = 45 'si imposta la proprietà voto nell'oggetto studente 


MsgBox studente.voto 

MsgBox studente.valuT 

MsgBox studente.Name & " ha ottenuto il " & studente.voto & " % di voti con valutazione " & 
studente.valuT 

End Sub 


Esempio: Creare una classe utilizzando la procedura Property Let passando più argomenti. 
Una procedura Property Let può accettare più argomenti, e in questo caso l'ultimo 


argomento contiene il valore da assegnare alla proprietà. Questo ultimo argomento nella 
==" lista degli argomenti è il valore della proprietà impostata dalla procedura chiamante. Il 


nome e il tipo di dati di ogni argomento in una procedura Property Let e il suo corrispondente Property 
Get dovrebbe essere la stessa, fatta eccezione per l'ultimo argomento nella procedura Property Let che 


è opzionale. 


Private Are_a As Double 

Public Property Let Area(Ba1 As Double, Alt1 As Double, ar As Double) 
Are_a = ar 

MsgBox "Argomenti ricevuti - Bal: " & Ba1 & ", Alt1:" & Alt1&", ar:"&ar 
End Property 

Public Property Get Area(Ba1 As Double, Alt1 As Double) As Double 

Area = Are_a 

End Property 


‘Inserire il codice sotto riportato in un modulo standard 


Sub rettangolo() 

Dim Ba As Double, Alt As Double 

Dim rett As New class_rettangolo 

Ba = InputBox("Inserire Base del Rettangolo") 

Alt = InputBox("Inserire Altezza del Rettangolo") 

rett.Area(Ba, Alt) = Ba * Alt 

a=rett.Area(Ba, Alt) 

MsgBox "L'area del Rettangolo con Base " & Ba & ", e Altezza" & Alt&" è "&a 
End Sub 
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Esempio: Creazione di una classe di sola lettura con PropertyGet 


‘Inserire il codice in un modulo di classe e denominarlo classRettangolo 

Private rett_B As Double, rett_H As Double 

Public Property Let Base(k As Double) 
rett_B= k 

End Property 

Public Property Get Base() As Double 
Base = rett_B 

End Property 

Public Property Let Altez(k1 As Double) 
rett H=k1 

End Property 

Public Property Get Altez() As Double 
Altez = rett_H 

End Property 

Public Property Get area_r() As Double 
area_r = Base * Altez 

End Property 


‘Inserire il codice sotto riportato in un modulo standard 


Sub rettangolo1() 

Dim a As Double, b As Double 

Dim areaRett As New classRettangolo 

a = InputBox("Inserire Base rettangolo") 

b = InputBox("Inserire Altezza rettangolo") 


areaRett.Base = a 
areaRett.Altez = b 
MsgBox areaRett.area_r 
End Sub 
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Esempio: Utilizzare Property Set per impostare un riferimento a un oggetto. 


‘Inserire il codice in un modulo di classe e denominarlo classeAuto 
Private tipoVet As classeTipoAut 
Public Property Set tipo(objtipo As classeTipoAut) 
Set tipoVet = objtipo 
End Property 
Public Property Get tipo() As classeTipoAut 
Set tipo = tipoVet 
End Property 


‘Inserire il codice sotto riportato in un modulo di classe e denominarlo classeTipoAut 
Private tipoCol As String, tipoNom As String, KL As Double 
Property Let colore(col As String) 
tipoCol = col 
End Property 
Property Get colore() As String 
colore = tipoCol 
End Property 
Property Let nome(nom As String) 
tipoNom = nom 
End Property 
Property Get nome() As String 
nome = tipoNom 
End Property 
Property Let percorso(kmLit As Double) 
KL = kmLit 
End Property 
Property Get percorso() As Double 
percorso = KL 
End Property 


Function costoBenz(cost_benz As Double, distanza As Double) As Double 
costoBenz = (distanza / percorso) * cost_benz 
End Function 


‘Inserire il codice sotto riportato in un modulo standard 
Sub propSetCars() 

Dim dist As Double, cost As Double 

Dim auto As classeAuto 

Set auto = New classeAuto 

Set auto.tipo = New classeTipoAut 

auto.tipo.colore = "Nero" 

auto.tipo.nome = "Toyota Yaris" 

auto.tipo.percorso = 50 

dist = InputBox("Inserisci i chilometri percorsi in un mese dalla vettura") 
cost = InputBox("Inserisci il costo del carburante al litro") 


MsgBox "Il colore della vettura è : " & auto.tipo.colore 

MsgBox "Il modello della vettura è : " & auto.tipo.nome 

MsgBox "La tua auto percorre " & auto.tipo.percorso & " Km. con 1 litro di carburante" 
MsgBox auto.tipo.costoBenz(dist, cost) & " Eur." & " è il costo mensile del carburante" 
End Sub 
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Esempio: Utilizzo dell'istruzione Property Set per impostare un riferimento a un oggetto Range. Inserire 
il codice nel modulo di classe denominato classeRange: 
Private coloreSF As Integer, SNome As String, vRng As Range 
Public Property Set Range_At(oRng As Range) 
Set vRng = oRng 
End Property 
Public Property Get Range_At() As Range 
Set Range_At = vRng 
End Property 
Property Let Nome(nom As String) 
SNome = nom 
End Property 
Property Get Nome() As String 
Nome = SNome 
End Property 
Property Let colore(col As Integer) 
coloreSF = col 
End Property 
Property Get colore() As Integer 
colore = coloreSF 
End Property 


Sub Mcolore() 
Range_At.Interior.ColorIndex = colore 
End Sub 


‘Inserire il codice sotto riportato in un modulo standard 

Sub classe_Range() 

Dim RangeATT As classeRange 

Set RangeATT = New classeRange 

Set RangeATT.Range_At = ActiveCell 

RangeATT.colore = 5 

If RangeATT.colore < 1 Or RangeATT. colore > 56 Then 

MsgBox "Errore! Inserisci un valore per il colore compreso tra 1 e 56" 
Exit Sub 

End If 

RangeATT.Mcolore 

MsgBox "colore di sfondo: ColorIndex " & RangeATT.colore & " Inserito nella cella " & 
RangeATT.Range_At.Address 

End Sub 


61.6 Eventi di Classe Personalizzati 


Un codice VBA viene attivato quando si verifica un evento come, cliccare su un pulsante, aprire la 
cartella di lavoro, selezionare una cella o cambiare una selezione di celle in un foglio di lavoro, e così 
via. Excel ha anche le sue procedure di eventi che vengono attivati da un evento predefinito e vengono 
installati all'interno di Excel con un nome standard e predeterminato, come la procedura di modifica 
del foglio di lavoro che viene installato con il foglio di lavoro come "Private Sub Worksheet_Change 
(ByVal Target As Range)". Quando il contenuto di una cella del foglio di lavoro cambia, VBA chiama la 
routine evento Worksheet_Change ed esegue il codice che contiene. Ora vediamo come è possibile 
creare i propri eventi personalizzati in una classe. 
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61.6 Definire un evento personalizzato 


Il primo passo è quello di dichiarare l'evento nella sezione di dichiarazione della classe usando la parola 
chiave Event per definire un evento personalizzato in un modulo di classe. Questa dichiarazione può 
avere qualsiasi numero di argomenti, e deve essere dichiarata come Public per renderlo visibile 
all'esterno del modulo oggetto. Si noti che è possibile dichiarare e generare eventi solo nei moduli 
oggetto ThisWorkbook, fogli di lavoro e fogli grafici, moduli Form e moduli di classe, e non da un 
modulo di codice standard. 


61.7 Generare un evento 


Dopo aver dichiarato un evento, si deve utilizzare una dichiarazione RaiseEvent per attivare l'evento 
dichiarato e la procedura di evento viene eseguita quando viene generato o attivato l'evento. Si ricorda 
che l'evento è dichiarato in un procedimento pubblico all'interno del modulo di classe utilizzando la 
parola chiave Evente con la dichiarazione RaiseEvent vengono passati i valori agli argomenti alla routine 
evento che viene eseguita 


61.8 Codice esterno per generare l'evento 


Abbiamo bisogno di un codice esterno per chiamare la procedura pubblica nel modulo di classe, che 
genera l'evento e tramite questo codice si determina quando l'evento verrà generato mediante il quale 
la procedura di evento viene eseguita. 


61.9 Creare una routine evento 


Si usa la parola chiave WithEvents per dichiarare una variabile oggetto della classe personalizzata in cui 
è definito l'evento personalizzato, dichiarando questa variabile oggetto, l'istanza della classe 
personalizzata punta alle variabili che risponderanno all'evento aggiungendo l'oggetto alla lista degli 
eventi nella finestra del codice. 


Solo le variabili dichiarate a livello di modulo possono essere utilizzato con la parola chiave WithEvents. 
Inoltre, le variabili possono essere dichiarate utilizzando le parole chiave WithEvents solo in moduli di 
oggetti e non in un modulo di codice standard. Dopo la dichiarazione della variabile oggetto, la 
procedura di evento può essere creata in modo simile alle procedure standard di VBA - la variabile 
oggetto verrà visualizzato nell'elenco a discesa Oggetti e tutti i suoi eventi sono elencati nell'elenco a 
discesa della procedura. 


Esempio: Creare un evento personalizzato utilizzando una procedura Worksheet_Change per attivare 
l'evento personalizzato. Inserire il codice sotto riportato nel modulo di classe denominato 
classe_Range: 
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Private RngV As Range, coloreS As Integer, nomeS As String 

Public Event selezionaC(cell As Range) 

Public Property Set RangeS(objRng As Range) 
Set RngV = objRng 

RaiseEvent selezionaC(RngV) 

End Property 

Public Property Get RangeS() As Range 

Set RangeS = RngV 

End Property 

Property Let nome(nom As String) 

nomeS = nom 

End Property 

Property Get nome() As String 

nome = nomeS 

End Property 

Property Let colore(col As Integer) 

coloreS = col 

End Property 

Property Get colore() As Integer 

colore = coloreS 

End Property 

Sub AssColore() 

RangesS.Interior.ColorIndex = colore 

End Sub 


‘Inserire il codice sotto riportato nel modulo del Foglio 1 
Private WithEvents rang As classe_Range 
Private Sub rang_selezionaC(cell As Range) 
rang.colore = 4 
If rang.colore < 1 Or rang.colore > 56 Then 
MsgBox "Errore! Inserire un valore valido per Colorindex compreso tra 1 e 56" 
Exit Sub 
End If 
rang.nome = "Prima Cella" 
rang.AssColore 
Dim i As Integer 
i = rang.colore 
rang.RangeS.Select 
Selection.Offset(0, 1).Value = "Nome : " & rang.nome 
Selection.Offset(0, 2).Value = "Indirizzo : " & Selection.Address 
Selection.Offset(0, 3).Value = "Colore di sfondo :"&i 
Selection.Offset(0, 4).Value = "Contenuto : " & Selection.Value 
End Sub 
Private Sub Worksheet_Change(ByVal Target As Range) 
On Error GoTo ErrorHandler 
Set rang = New classe_Range 
If Target.Address = Range("A1").Address Then 
Set rang.RangeS = Target 
Else 
Exit Sub 
End If 


ErrorHandler: 


Application.EnableEvents = True 
End Sub 
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Esempio: Creare un evento personalizzato: All’inizializzazione della Form si attiva l'evento 
personalizzato. Inserire il codice nel modulo di classe denominato classeTextBox 


Private tb As MSForms.TextBox, strSeq As String 
Public Event eTxtBx(objTxtBx As MSForms.TextBox) 


Public Property Set Stesto(objTxtBx As MSForms.TextBox) 
Set tb = objTxtBx 

RaiseEvent eTxtBx(tb) 

End Property 


Public Property Get Stesto() As MSForms.TextBox 
Set Stesto = tb 
End Property 


Property Let sequenza(tbSeq As String) 
strSeq = tbSeq 
End Property 


Property Get sequenza() As String 
sequenza = strSeq 
End Property 


Inserire una Form con 2 textBox (TextBox1 e TextBox2) e un CommandButton (CommandButton1) 
all'interno del modulo, inserire il seguente codice 


ROESrPOnI 


È Private WithEvents tx As classeTextBox, sq1 As String, sq2 As 
Private Sub CommandButton1_Click() 
S a Dim objControl As Control 

FISSASTETO For Each objControl In Me.Controls 


If TypeName(objControl) = "TextBox" Then 
If Not objControl.Name = "TextBox1" Then 
objControl.Value = "Valore Copiato :" & tx.Stesto.Value 
objControl.BackColor = vbRed 
End If 
End If 
Next 
MsgBox "Testo Copiato dal" & sq1 & " AI" & sq2 
End Sub 


Private Sub TextBox1_Change() 
If tx.Stesto.Value = "" Then 
tx.Stesto.BackColor = vbYellow 
Else 
tx.Stesto.BackColor = vbGreen 
End If 
End Sub 
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Private Sub tx_eTxtBx(objTxtBx As MSForms.TextBox) 
tx.Stesto.BackColor = vbYellow 
With Me.TextBox1 

tx.sequenza = "Primo TextBox" 
sql = tx.sequenza 

End With 

With Me.TextBox2 

tx.sequenza = "Secondo TextBox" 
Sq2 = tx.sequenza 

End With 

End Sub 

Private Sub UserForm_Initialize() 
Set tx = New classeTextBox 

Set tx.Stesto = Me.TextBox1 

End Sub 


Esempio: Creare un evento personalizzato: - utilizzare la parola chiave WithEvents 
Public WithEvents ComboB As MSForms.ComboBox 
Public Sub SCombo(objCbx As MSForms.ComboBox) 
Set ComboB = objCbx 
End Sub 
Public Sub ComboB_AddItem(stritem As String, Cancel As Boolean) 
If Cancel = False Then 
ComboB.AddItem stritem 
End If 
If stritem <> "" Then 
ComboB.BackColor = vbGreen 
End If 
End Sub 
Private Sub ComboB_Change() 
If ComboB.Value = "" Then 
ComboB.BackColor = vbWhite CommandButtoni 
End If TT 
End Sub 


Inserire una Form, con un ComboBox (ComboBox1) e un CommandButton (CommandButton1) 
all'interno del modulo. Inserire codice sotto riportato nel modulo della Form 


Private cB As New classeCombo 
Private Sub CommandButton1_Click() 
Dim Stesto As String 

Stesto = cB.ComboB.Text 

Dim Cancel As Boolean 
mess = MsgBox("Confermi di voler aggiungere la voce digitata al ComboBox?", vbYesNo) 
If mess = vbNo Then 

Cancel = True 
End If 
Call cB.ComboB_AddItem(Stesto, Cancel) 
End Sub 


Private Sub UserForm_Initialize() 


cB.sCombo Me.ComboBox1 
End Sub 
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62. Gestione Eventi di foglio di lavoro con Un Modulo Di Classe 


Quando si utilizzano dei controlli in un foglio di lavoro, spesso si ha la necessità di utilizzare gli eventi 
per gestire le azioni che possono essere eseguite. Al tempo stesso se si usano diversi controlli, può 
diventare problematico far interagire i vari controlli in quanto si deve aggiungere una o più sub evento 
per ognuno di essi. Per semplificarne la programmazione si può usare un modulo di classe con una 
singola routine evento per una serie di controlli uguali 


Possiamo capirne meglio il significato vedendo un esempio partendo da un foglio di lavoro in cui 
inseriamo due serie di pulsanti di opzione tramite il percorso dal menu Sviluppo — Inserisci e scegliamo 
il pulsante di Opzione dalla sezione Controlli ActiveX 
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Pulsante di opzione (controllo ActiveX) 


Inserisce un controllo pulsante di 
opzione. 


Una volta inseriti e allineati i vari controlli, per poter farli lavorare come due gruppi separati di pulsanti, 
dovremmo assegnare due GroupName diversi, rispettivamente Test1 e Test2 tramite la 
modalità Progettazione e la finestra delle proprietà che troviamo nella scheda Sviluppo 
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In questo esempio faremo in modo che il 
pulsante di opzione selezionato diventi rosso 
mentre quelli non selezionati saranno di 

Hai selezionato il pulsante Option 2 Del gruppo Test2 colore verde, inoltre mandiamo anche un 


avviso a video che riporti il nome del 


pulsante selezionato 


Iniziamo inserendo un modulo di classe, entrando nell’editor di VBA dal menu Inserisci — Modulo di 
classe. Una volta inserita selezioniamo la classe e nella finestra delle proprietà, cambiamo il suo nome 
predefinito da Class1 a clsTest 


#] Microsoft Visual Basic, Applications Edition - Cartell - [Classel 


1) &É VBAProject (Cartel1) da 
[3 Microsoft Excel Oggetti 4 
I) Foglio 1 (Foglio 1) nella 


:--EB) FoglioS (Foglio?) 
«x Modulo | Questa_cartella_di_lavoro 
= E ag i di 
rtell) |< Modulodiglasse Pope 
5-3 Morosoft Excel Oggetti 
8) Fogio1 (Foglo1) Proprietà - cisTest 
i FoglioS (Foglio) cisTest ClassModule 
Questa_cartella_di lavoro l'Afibetico = = 
=) 9 Moduli di dasse a Mi —- 


ati [nstncng!1 -Prvat 


finestra del codice digitiamo queste righe: 


Option Explicit 
Private WithEvents testOpt As MSForms.OptionButton 


Tramite la parola chiave WithEvents possiamo specificare che una variabile dichiarata (testOpt) si 
riferisca a un'istanza di una classe in grado di generare eventi. Infatti dopo aver fatto questo, si sarà in 
grado di selezionare la variabile testOpt dall'elenco a discesa nella parte superiore sinistra della finestra 
del codice 


Gli Beorosoli Pics Cogst o e _T "00ee=————& tl!” 


(IE) Foglio1 (Foglio 1) 
| AT) FoglioS (Foglio2) volta 
i Questa_cartella_di lavoro 
13). 3 Modul di dasse 
i. dsTest 


selezionata, per impostazione predefinita, nella finestra del codice appare l'evento click in questo 
modo 


Private Sub testOpt_Click() 


End Sub 
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Se ora si fa clic sul menu a discesa a destra, verranno elencati tutti gli eventi disponibili per questo tipo 
di controllo attraverso il modulo di classe e selezioniamo l'evento Change dal menu a discesa e 
rimuoviamo l'evento click 


Click 
“BeforeDragOver | 
BeforeDropOrPaste | 

Change | 

DbiCick 

Error 

KeyDown 

KeyPress 

KeyUp 

MouseDown E otterremo qualcosa di simile: 
MouseMove 

MouseUp 


Option Explicit 
Private WithEvents testOpt As MSForms.OptionButton 


Private Sub testOpt_Change() 
End Sub 
Si diceva di cambiare il colore del controllo selezionato e, naturalmente, anche cambiare il colore del 


controllo deselezionato, inoltre si voleva anche un messaggio che avvisi quale controllo è stato 
selezionato. A tal proposito ho pensato di usare questo codice nel modulo di classe 


Private Sub testOpt_Change() 
If testOpt.Value = 0 Then 
testOpt.Object.BackColor = RGB(0, 255, 0) 
Else 
MsgBox "Hai selezionato il pulsante " & testOpt.Caption & " Del gruppo " & testOpt.GroupName 
testOpt.Object.BackColor = RGB(255, 0, 0) 
End If 
End Sub 


Quando si clicca su un pulsante di opzione per selezionarlo, sia il pulsante selezionato e i pulsanti 
deselezionati eseguiranno i loro eventi di modifica, quindi questa Sub Evento sarà eseguita due volte, 
una volta per il controllo selezionato e una volta per il controllo deselezionato, il primo avrà valore 1 e il 
secondo valore 0. Tutto ciò che deve essere fatto ora è quello di collegare i controlli sul foglio di lavoro 
al modulo di classe. Per prima cosa si deve scrivere del codice nel modulo di classe che riceverà 
l'oggetto che sta per "ascoltare" da una routine di inizializzazione 


Public Property Set Control(obtNew As MSForms.OptionButton) 
Set testOpt = obtNew 

End Property 

E infine distruggiamo la classe per liberare risorse 

Private Sub Class_Terminate() 
Set testOpt = Nothing 

End Sub 


Ora abbiamo bisogno di creare le istanze di questo modulo di classe per quanti controlli abbiamo da 
collegare. Inseriamo un modulo normale nel progetto e useremo una variabile Collection per 
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contenere le istanze dei moduli di classe: Dim testC As Collection. Poi con un ciclo scorriamo tutti gli 
oggetti del foglio di lavoro e agganciamo i controlli OptionButton all'evento, ecco il codice per l'intero 
modulo: 


Option Explicit 
Dim testC As Collection 
Sub InitializeEvents() 
Dim ctrOpt As OLEObject 
Dim Fgl As Worksheet 
Dim clsEvents As testOpt 
Set Fgl = ThisWorkbook.Worksheets(1) 
If testC Is Nothing Then 
Set testC = New Collection 


End If 
For Each ctrOpt In Fgl.OLEObjects 'Ciclo attraverso tutti i controlli 
If TypeName(ctrOpt.Object) = "OptionButton" Then 
Set clsevents = New testOpt 'Creiamo una nuova istanza della classe 
Set clsEvents.Control = ctrOpt.Object 
testC.Add clsEvents 'Aggiungiamo l'istanza ad una collezione 
End If 
Next 
End Sub 
Sub TerminateEvents() 
Set testC = Nothing 'distruggiamo la classe per liberare memoria 
End Sub 


Ora ci si deve assicurare che il codice della routine InitializeEvents venga eseguito all'apertura della 
cartella, per cui useremo l'evento Workbook_Open nel modulo ThisWorkbook con questo codice 


Option Explicit 

Private Sub Workbook_Open() 
InitializeEvents 

End Sub 


Infine, quando la cartella di lavoro viene chiusa o se si vuole fermare l'esecuzione della classe di 
rispondere agli eventi, è necessario distruggere la classe per liberare risorse con questo codice 


Private Sub Class_Terminate() 
Set testC = Nothing 
End Sub 


Da notare che la routine Class_Terminate verrà eseguita per ciascuna istanza della classe creata con la 
routine InitializeEvents. Ovviamente questa sub deve essere eseguita quando la cartella di lavoro si 
chiude, quindi nel modulo ThisWorkbook, aggiungere: 


Private Sub Workbook_BeforeClose(Cancel As Boolean) 
TerminateEvents 
End Sub 


In conclusione è possibile sostituire molte subroutine di eventi da un singolo modulo di classe in 
combinazione con una routine di inizializzazione. 
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63. Esegui macro VBA su un foglio di lavoro protetto 


Se si esegue una macro che tenta di apportare delle modifiche in un foglio di lavoro protetto si verifica 

un errore run-time "Errore di run-time '1004 '. Una possibilità per evitare l'errore è quella di rimuovere 
la protezione del foglio di lavoro, eseguire il codice, e quindi proteggere nuovamente, come illustrato di 
seguito: Foglio1.Unprotect Password: = "123" e di seguito 

Foglio1.Protect Password: = "123" 


Tuttavia, questo metodo ha alcuni difetti: 


v Se durante l'esecuzione del codice si verifica un errore o viene fermata l'esecuzione della 
macro, il foglio di lavoro rimarrà senza protezione 

v. La password di protezione del foglio di lavoro verrà visualizzato nel codice VBA e anche se è 
possibile proteggere il progetto VBA per impedire l'accesso o la visualizzazione del codice, in 
rete esistono tantissimi decompilatori che rendono vana la protezione della password 

v_ Sarà necessario inserire il codice (Protect e Unprotect) più volte in ciascuna macro. 


Per superare il primo inconveniente in cui il foglio rimane sprotetto sul codice di errore, è possibile 
utilizzare ErrorHandler, come illustrato di seguito: 


Sub protezione1 () 

Foglio1.Unprotect Password: = "123" 

On Error GoTo ErrHandler 

Foglio1.Cells (1, 1) = UCase ("Ciao Mondo") 
Foglio1.Cells (2, 1) = 5/0 

Foglio1.Cells (3, 1) = Application.Max (24, 112, 66, 4) 
Foglio1.Protect Password: = "123" 

ErrHandler: Foglio1.Protect Password: = "123" 

End Sub 


Sub protezione? () 

Foglio1.Unprotect Password: = "123" 

On Error Resume Next 

Foglio1.Cells (1, 1) = LCase ("CIAO MONDO") 
Foglio1.Cells (2, 1) = 5/0. 

Foglio1.Cells (3, 1) = Application.Min (24, 112, 66, 4) 
Foglio1.Protect Password: = "123" 

On Error GoTo 0 

End Sub 


63.1 Dichiarazione On Error 


On Error Resume Next: Specifica che quando si verifica un errore di run-time, il controllo passa 
all'istruzione immediatamente successiva all'istruzione in cui si è verificato l'errore stesso e 
l'esecuzione continua da quel punto. 


v On Error GoTo 0: Disattiva l'intercettazione degli errori 


v On Error GoTo Line: Attiva la routine di gestione degli errori che inizia alla riga specificata. 
Y On Error GoTo intercetta tutti gli errori. 
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Un modo per eseguire le macro in un foglio di lavoro protetto potrebbe essere quella di utilizzare 
l'argomento UserInterfaceOnly nel metodo Protect, impostando l'argomento UserlnterfaceOnly a True, 
nella maniera: Foglio1.Protect Password: ="123", UserInterfaceOnly: = True. 


UserInterfaceOnly è un argomento facoltativo nel metodo Protect e il suo valore predefinito è False. 
Impostarlo a True significa che la protezione del foglio di lavoro vale solo per l'interfaccia utente e non 
si applica alle macro e questo permetterà di eseguire tutte le macro nel foglio di lavoro. Se si omette 
questo argomento, la protezione si applica sia alle macro che all'interfaccia utente. 


Si può osservare che se si applica il metodo Protect con l'argomento UserlnterfaceOnly impostata a 
True per un foglio di lavoro e quindi si salva la cartella di lavoro, l'intero foglio di lavoro, non solo 
l'interfaccia, sarà completamente protetto quando si riapre la cartella di lavoro. Per riattivare la 
protezione di interfaccia utente dopo che la cartella di lavoro è aperta, è necessario ancora una volta 
applicare il metodo Protect con UserlnterfaceOnly impostata su true. 


Per riattivare la protezione di interfaccia utente dopo che la cartella di lavoro è aperta, è possibile 
utilizzare l'argomento UserinterfaceOnly nell'evento Open in cui esso viene attivato in tutti i fogli di 
lavoro o in quelli specificati, ogni volta che la cartella di lavoro è aperta. È inoltre possibile utilizzare 
l'argomento UserlnterfaceOnly in un foglio di lavoro, all'inizio della macro, per abilitare la protezione di 
interfaccia utente ogni volta che la macro viene eseguita. Vedere esempi riportati di seguito: 


Sub protezione3 () 

Foglio1.Protect Password: = "123", UserInterfaceOnly: = True 
Foglio1.Cells (1, 1) = UCase ("Ciao Mondo") 

End Sub 


Se tutti i fogli usano la stessa password, è possibile impostare l'argomento UserlnterfaceOnly come 
TRUE come segue. Notare che il codice è inserito in ThisWorkbook della cartella di lavoro 


Private Sub Workbook_Open () 

Dim ws As Worksheet 

For Each ws In ThisWorkbook.Worksheets 

ws.Protect password: = "123", UserInterfaceOnly: = True 
Next ws 

End Sub 


Per abilitare la protezione a livello di interfaccia utente solo se i fogli di lavoro hanno password 
differenti in fogli di lavoro specifici , impostare l'argomento UserInterfaceOnly come True nell'evento 
Open, come segue. 


Private Sub Workbook_Open () 

Foglio1.Protect Password: = "123", UserInterfaceOnly: = True 
Foglio2.Protect Password: = "456", UserInterfaceOnly: = True 
End Sub 


Se si desidera eseguire una macro su un foglio di lavoro protetto, e mantenere il codice visibile e 
modificabile nell’editor di VB ma non si vuole rivelare o visualizzare la password si può utilizzare il 
seguente metodo. Se per esempio si utilizzano tre fogli di lavoro (Foglio1, Foglio2 e Foglio3) in una 
cartella di lavoro che sono protetti da password, si può inserire un foglio di lavoro supplementare 
(Foglio4) e renderlo ‘molto nascosto’ (VeryHidden), il che significa che non sarà visibile all'utente e può 
essere visibile solo con un codice VBA, perché non compare nell'elenco Scopri dell'interfaccia. 
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Un foglio può essere ‘molto nascosto’ utilizzando una singola linea di codice VBA come la seguente 
Worksheets ("Foglio4"). Visible = xIVeryHidden 


E’ possibile inserire una password, per visualizzare il foglio ‘molto nascosto’, il che significa che la 
password dovrà essere ricordato separatamente e non sarà visibile o accessibile finché il foglio è 
veryhidden. Però è possibile memorizzare le password che proteggono i fogli di lavoro su cui si desidera 
eseguire le macro, e queste macro richiameranno le password memorizzate nel foglio "VeryHidden" 


Sub foglio_nascosto() 

Dim pswd As String 

pswd = Cells (1, 1) 

mypass = pswd 

pswdMatch = InputBox ("Inserire la password per visualizzare il foglio") 
If pswdMatch = pswd Then 
Worksheets ("Foglio4"). Visible = True 
Else 

Exit Sub 

End If 

End Sub 


Sub Protezione5() 

Dim passfgl2 As String 

passfgl2 = Foglio4.Cells (2, 1) 

Foglio2.Protect Password: = passfgl2 , UserInterfaceOnly: = True 
Foglio2.Cells (1, 1) = UCase ("Ciao Mondo") 

End Sub 


1 3 esempi esposti poco sopra faranno in modo di eseguire la macro su un foglio di lavoro protetto, la 
cui password è nascosta nel Foglio4 e lo stesso è stato protetto e reso "molto nascosto". E” possibile 
abilitare il Filtro automatico quando la protezione dell'interfaccia utente è attiva. Questa proprietà di 
attivare il filtro non viene salvata con il foglio di lavoro Quando la protezione dell'interfaccia utente è 
attiva si può utilizzare la proprietà AutofilterMode tramite VBA per utilizzare il filtro automatico si può 
utilizzare una macro in questo modo 


Sub attiva_filtro1 () 

With Foglio1 

. EnableAutoFilter = True 

.Protect Password:="123", contents:=True, UserlnterfaceOnly:=True 
. AutoFilterMode = False 

.Range("A1:B10" ).AutoFilter Field:=1, Criterial:= "<35" 

End With 

End Sub 


Sub attiva_filtro2 () 

With Foglio1 

.Protect Password:="123", contents:=True, UserInterfaceOnly:=True 
.Range("A1:B10" ).AutoFilter 

.Range("A1:B10" ).AutoFilter Field:=1, Criterial:= ">35" 

End With 

End Sub 


Inoltre è possibile utilizzare UserlnterfaceOnly per consentire il raggruppamento in un foglio di lavoro 
protetto quando l'interfaccia utente ha la protezione attiva 
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Sub attiva_gruppo() 

With Foglio1 

. EnableOutlining = True 

.Protect Password:="123", contents:=True, UserInterfaceOnly:=True 
.Rows ("12:14"). Group 

‘“Rows (" 12:14 "). Ungroup 

End With 

End Sub 


63.2 Metodo Protezione Worksheet senza UserInterfaceOnly 


Questo metodo Protegge un foglio di lavoro in modo che non può essere modificato. Se sono 
necessarie modifiche da apportare a un foglio protetto, è possibile utilizzare il metodo Protect di un 
foglio protetto se viene fornita la password. Inoltre, un altro metodo sarebbe quello di rimuovere la 
protezione del foglio di lavoro, apportare le modifiche necessarie, e quindi proteggere nuovamente il 
foglio di lavoro. Vediamo alcuni esempi: 


Sub consenti_ordinamento1 () 

Foglio1.Unprotect Password: = "123" 

Foglio1.Range. ("G1: H10") Locked = False 

Foglio1.Protect Password: = "123", contents: = True, AllowSorting: = True 
Foglio1.Range. ("G1: H10") Sort Key1: = Sheet1.Range ("G1"), Order1: = xIDescending 
End Sub 


Sub consenti_formattazione1 () 

Foglio1.Protect Password: = "123", AllowFormattingCells: = True 
Foglio1.Range. ("G1: H10") Font.Bold = True 

Foglio1.Range. ("A1: B10") Font.Color = vbBlue 

End Sub 


Sub consenti_formattazione2 () 

Foglio1.Protect Password: = "123", AllowFormattingColumns: = True, AllowFormattingRows: = True 
Foglio1.Columns (2). ColumnWidth = 25 

Foglio1.Rows ("4:5"). RowHeight = 25 

End Sub 
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64. Il Metodo Find in VBA 


Per cercare un articolo specifico o un valore in un intervallo, si può utilizzare il metodo Find che 
restituisce il Range, vale a dire, la cella, dove si trova l'elemento o valore. Se non viene trovata nessuna 
corrispondenza viene restituito Nothing. Sintassi. 


RangeObject.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, 
SearchFormat) 


E’ necessario specificare solo l'argomento What, tutti gli altri sono facoltativi e rappresentano: 


RangeObject: Rappresenta un intervallo in cui viene cercato l'elemento o lo specifico valore ed è 
possibile cercare all'interno di celle specifiche, vale a dire, Range, Colonne o le celle di un foglio di 
lavoro. 

What: E 'la voce o il valore che viene ricercato e può essere di qualsiasi tipo di dati. 

After: Rappresenta una singola cella che è necessario specificare, dopo di che la ricerca inizia. Perché la 
ricerca inizia dopo questa cella, la cella specificata viene cercata alla fine e quando la ricerca inizia dopo 
la cella specificata e raggiunge la fine dell'intervallo di ricerca, senza trovare il valore di ricerca, la 
ricerca ricomincia dall'inizio dell'intervallo di ricerca fino alla cella specificata. Se l'argomento non viene 
specificato, la cella iniziale è definita nell'angolo superiore sinistro del campo di ricerca, dopo di che 
inizia la ricerca. 


Se si specifica After: = Range ("A13") in cui il campo di ricerca è Range ("A1: A20"), il metodo 
Find inizierà la ricerca dalla cella A14, fino alla cella A20 e successivamente cercherà dalla cella A1 fino 
alla cella A13. 


Lookin: Questo argomento specifica il tipo di informazioni - può 
essere x/Values o xIFormulas o xIComments che indicano il tipo di valore da cercare, se una formula, un 
commento o un valore. Il valore predefinito è x/Formulas. 


A 
du _»r Prendiamo il caso in cui la cella A7 di figura 1 contenga la formula =S0MMA(A4;A5) e il 
2) 24 totale della somma è 176, si può usare il metodo Find per cercare il valore nelle formule 
o in questo modo: 
4| 78 
Hdi 
6l 8 ActiveSheet.Range("A1:A20").Find(What:="176", After:=ActiveSheet.Range("A1"), 
TI 176 LookIn:=xIFormulas) 
8| 57 
9 176 Verrà restituita la cella SAS9, perché il valore 176 NON compare nella formula della cella 
353 sd A7, ma compare come valore nella cella A9. Se invece usiamo il metodo Find per ricercare 
3 = ilvalore 176 deve essere espresso in questo modo: 
13) 432 


14| 45 ActiveSheet.Range("A1:A20").Find(What:="176", After:=ActiveSheet.Range("A1"), 
15) 234 LookIn:=xIValues) 


16) somma 

o SCCI Restituirà SAS7, in quanto il valore 176 appare come risultato della formula nella cella A7 
18) 99 i . i 

di, e solo dopo nella cella A9. Analogamente, nel caso in cui la cella A7 contiene la 

di x formula =S0MMA(A4;A5), e la cella A16 contiene la stringa somma, si può applicare il 


metodo Find in questo modo: 
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ActiveSheet.Range("A1:A20").Find(What:="somma", After:=ActiveSheet.Range("A1"), 
LookIn:=xIValues) 
Restituirà SAS16, mentre invece se il metodo viene espresso nel seguente modo: 


ActiveSheet.Range("A1:A20").Find(What:="sum", After:=ActiveSheet.Range("A1"), 
LookIn:=xIFormulas) 
Restituirà SAS7 


Esempio: Le opzioni del metodo Find 


Sub cerca_1() 

Dim valoreC As Range 

'Restituisce SAS9 

Set valoreC = ActiveSheet.Range("A1:A20").Find(What:="176", After:=ActiveSheet.Range("A1"), 
LookIn:=xIFormulas) 

If Not valoreC Is Nothing Then 

MsgBox valoreC.Address 

'End If 

'Restituisce SA$7 

Set valoreC = ActiveSheet.Range("A1:A20").Find(What:="176", After:=ActiveSheet.Range("A1"), 
LookIn:=xIValues) 

If Not valoreC Is Nothing Then 

MsgBox valoreC.Address 

'End If 

'Restituisce SA$16 

Set valoreC = ActiveSheet.Range("A1:A20").Find(What:="somma", After:=ActiveSheet.Range("A1"), 
LookIn:=xIValues) 

If Not valoreC Is Nothing Then 

MsgBox valoreC.Address 

End If 

'Restituisce SAS7 

Set valoreC = ActiveSheet.Range("A1:A20").Find(What:="sum", After:=ActiveSheet.Range("A1"), 
LookIn:=xlFormulas) 

If Not valoreC Is Nothing Then 

MsgBox valoreC.Address 

End If 

End Sub 


E possibile utilizzare anche gli altri parametri della sintassi del metodo Find come: 


LookAt: È possibile specificare x/Whole o xIPart , se volete, rispettivamente, una corrispondenza esatta 
o una corrispondenza parziale. Una ricerca utilizzando xIPart per "Gianni" restituirà la cella che ha 
"Gianni Morandi", perché c'è una corrispondenza parziale. Utilizzare x|Whole per abbinare l'intero 
valore o la stringa che corrisponde esattamente al valore di una cella. Il valore predefinito è xIPart. 
SearchOrder: È possibile specificare x/ByRows o xIByColumns per questo argomento, che indicano se 
cercare per righe o per colonne. Il valore predefinito è xIByRows. 


Supponiamo che le celle A7 e B3 contengano la stringa "somma" si può utilizzare il metodo Find per 
una ricerca nelle righe in questo modo: 
ActiveSheet.Range("A1:B20").Find (What:= "somma", LookIn:=xIValues, SearchOrder:=xIByRows) 


Mentre invece per una ricerca nelle colonne si deve applicare il metodo Find in questo modo: 
ActiveSheet.Range ("A1:B20").Find (What:= "somma", LookIn: = xIValues, SearchOrder: = xIByColumns 
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XISearchDirection: È possibile specificare x/[Next per ricerche verso il basso (cioè il valore 
corrispondente successivo) o x/Previous per ricerche verso l'alto o all'indietro (cioè il valore 
corrispondente precedente) nel campo di ricerca. Il valore predefinito è x|Next. Se si specifica After: = 
Range ("A13") in cui il campo di ricerca è Range ("A1: A20") e impostare il SearchDirection: = xINext , 
allora la funzione di ricerca inizierà a cercare dalla cella A14 fino alla cella A20 e poi ricercare dalla cella 
A1 fino alla cella A13. 

MatchCase : Si deve specificare il valore True per una ricerca case-sensitive. Il valore predefinito è 
False. 

MatchByte: Questo argomento può essere utilizzata solo se si seleziona il supporto delle lingue a 
doppio byte. 

SearchFormat: Indica se si desidera cercare una specifica formattazione con il valore True o False. Il 
valore predefinito è False. Si deve specificare il formato utilizzando la proprietà FindFormat 
dell'oggetto Application, e impostare l'argomento SearchFormat true. Vedi l'esempio sotto riportato 
che illustra questa tesi. 


Esempio: Utilizzare il metodo Find per cercare la prima occorrenza del valore stringa "somma", che è in 
grassetto. Si noti che la ricerca inizierà dopo la cella A1 (cioè dalla A2) in assenza dell'argomento After 


Sub cerca_formato() 

Dim cerca_1 As Range, ultima As Range, cerca_val As Range 

'impostare l'intervallo di ricerca 

Set cerca_1 = ActiveSheet.Range("A1:A20") 

‘specificare l'ultima cella del range 

Set ultima = cerca_1.Cells(cerca_1.Cells.Count) 

'Specificare il formato utilizzando FindFormat 

Set cerca_val = cerca_1.Find(What:="somma", After:=ultima, LookIn:=xIValues, SearchFormat:=True) 
MsgBox cerca_val.Address 

End Sub 


Ogni volta che il metodo Find viene utilizzato, le impostazioni per Look/n, LookAt, SearchOrder, e 
MatchByte vengono salvate, a meno che i valori per questi argomenti non siano specificati di nuovo, i 
valori precedentemente salvati vengono utilizzati di nuovo la prossima volta che viene richiamato il 
metodo. Quindi è importante impostare questi argomenti in modo esplicito ogni volta che questo 
metodo viene utilizzato. In questo modo, il valore di argomento utilizzato in precedenza diventa il 
default se non specificato nel successivo uso. Ad esempio, se si specifica LookIn con l'argomento 
xlFormulas, poi xIFormulas diventa il valore predefinito per l'argomento LookIn. E nel successivo 
utilizzo, se si omette di menzionare l'argomento LookIn, si imposterà xIFormulas. 


Nel caso in cui si desidera cercare un elemento o un valore in un intervallo, una pratica comune è 
utilizzare un ciclo come Loop o For Next. Se l'intervallo di ricerca è piuttosto grande, l’uso del ciclo 
potrebbe richiedere molto tempo, mentre invece un grande vantaggio nell'uso del metodo Find è la 
sua velocità. 


Per trovare occorrenze multiple di un elemento o un intervallo si può utilizzare il metodo 

FindNext o FindPrevious. Questi metodi sono utilizzati per proseguire la ricerca con il metodo Find, 
utilizzando gli stessi parametri o condizioni, e restituire il successivo (Metodo FindNext) o precedente 
(metodo FindPrevious) cella corrispondente. Metodo Range.FindNext: 


Sintassi. RangeObject.FindNext (After) 
RangeObject: Rappresenta un intervallo in cui viene cercato l'elemento o il valore specifico. 
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After: Rappresenta una singola cella che si deve specificare dopo la quale inizia la ricerca. Quando la 
ricerca inizia dopo la cella specificata e raggiunge la fine dell'intervallo di ricerca, senza trovare il valore 
di ricerca, la ricerca ricomincia dall’inizio dell'intervallo di ricerca fino alla cella specificata. È facoltativo 
specificare questo argomento, e se non specificato, è la cella nell'angolo superiore sinistro del campo di 
ricerca, dopo di che inizia la ricerca. 


Il Metodo Range.FindPrevious: Sintassi: RangeObject.FindPrevious (After) 
RangeObject: Rappresenta un intervallo in cui viene cercato l'elemento o valore specifico. 


After: Rappresenta una singola cella che si specifica prima che inizia la ricerca, perché la ricerca inizia 
da questa cella. È facoltativo specificare questo argomento, e se non specificato, è la cella nell'angolo 
superiore sinistro del campo di ricerca prima che inizia la ricerca. 


Esempio: Trovare più occorrenze di un valore in un intervallo; trovare la stringa "vecchia" in un campo 
di ricerca, sostituirla con "nuova" e cambiare il colore del carattere. 


Sub multi_cerca() 

Dim cerca1 As Range, ultima As Range, cerca_prima As Range 

Dim primo_ind As String 

Set cerca1 = ActiveSheet.Range("A1:A100") 'Impostare l'intervallo di ricerca 

Set ultima = cerca1.Cells(cerca1.Cells.Count) 'Specifica ultima cella nel range 

Trovare la stringa "vecchia" nel campo di ricerca 

Set cerca_prima = cerca1.Find(What:="vecchia", After:=ultima, LookIn:=xIValues, LookAt:=xlWhole, 
SearchOrder:=xlByRows, SearchDirection:=xINext, MatchCase:=False, SearchFormat:=False) 

If Not cerca_prima Is Nothing Then 'Se "vecchia" si trova nel campo di ricerca 

primo_ind = cerca_prima.Address 'Salva l'indirizzo del 1° risultato di "vecchia", in primo_ind 

Do 

"Trova la successiva occorrenza di "vecchia". Si noti, che non si parte dalla prima occorrenza di "vecchia" 
Set cerca_prima = cerca1.FindNext(cerca_prima) 

cerca_prima.Value = "nuova" 'Sostituire "vecchia" con "nuova" 

cerca_prima.Font.Color = vbRed 'Colore del carattere è cambiato 


Loop Until cerca_prima.Address = primo_ind 
End If 
End Sub 


Esempio: Con riferimento all’Immagine 2, sotto riportata, il codice proposto mostra come utilizzare il 
metodo Find e la proprietà Offset per fare una ricerca verticale. 


71 A | B | Cc | D | E | F | G J 

1 Tabella Studenti 

2 è 

3 Per ogni studente nella 

4 colonna A, si deve trovare il 
5 nome dello stesso nella 

6 i i colonnaE, e inserire i suoi 
7 | ‘Gianni 206 | ae è. | mM voti nella colonna B, solo se 
SI Pisani La RELA RRSSAA DIGENA REIRSSZ cc Sii 


Ì 
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Sub cerca_2() 

Dim cerca1 As Range, nomesSt As Range, prima As Range, stud As Range 
Set cerca1 = ActiveSheet.Range("E3:E7") 

Set nomeSt = ActiveSheet.Range("A3:A7") 

'si ricercano tutti i nomi degli studenti menzionati nell'intervallo specificato 
For Each stud In nomeSt 

Set prima = cerca1.Find(What:=stud, LookIn:=xIValues, LookAt:=xlWhole, SearchOrder:=xlByRows, 
SearchDirection:=xINext, MatchCase:=False, SearchFormat:=False) 

'Se il nome dello studente viene trovato e se studente è in classe 3 

If Not prima Is Nothing And prima.Offset(0, 1) = "3" Then 

stud.Offset(0, 1) = prima.Offset(0, 2) 

End If 

Next 

End Sub 


64.1 Utilizzo del metodo Find per cercare una data 


Excel memorizza tutte le date come numeri interi e il tempo come frazioni decimali. Con questo 
sistema, Excel può aggiungere, sottrarre o confrontare date e ore, proprio come qualsiasi altro 
numero, considerando come data iniziale di questo sistema il 1/1/1900 0:00:00, che Excel considera 
erroneamente il 1900 come un anno bisestile, si presume che questo errore sia stato fatto 
consapevolmente da Microsoft per garantire la compatibilità con Lotus 1-2-3, e quindi in realtà il bug 
sarebbe stato in Lotus 123 (predecessore di Excel). 


In Excel, la data equivale a un "numero di serie" (che è un valore numerico), che è il conteggio del 
numero di giorni trascorsi da una certa data di riferimento. La parte intera (valori a sinistra del 
separatore decimale) è il numero di giorni trascorsi dal 1 gennaio 1900, ad esempio, 1 gennaio 1900 
viene memorizzato come 1, il 2 gennaio 1900 viene memorizzato come 2, il 15 marzo 2001 viene 
memorizzato come 36.965. La parte frazionaria (valori a destra del decimale) contiene informazioni 
temporali, e rappresenta il tempo come frazione di un giorno intero. 


Ad esempio, 12:00 (mezzanotte) è memorizzato come 0, 06:00 viene memorizzato come 0,25, 12:00 
(mezzogiorno) viene memorizzato come 0.5, 06:00 viene memorizzato come 0,75, 06:00:30 viene 
memorizzato come 0,750347222. Per controllare il "numero di serie" di una data e ora si deve 
formattare la cella come "Generale". 


L'utilizzo del metodo Find per trovare o cercare una data può essere difficile, il formato della data deve 
corrispondere al formato data predefinito, come impostato nel vostro desktop, che, se non 
specificatamente modificato, dovrebbe essere nel suo formato standard di "data breve" o "data lunga”, 


À A Lula Ga] D vale a dire, " 22/01/2010" o "22 gennaio 2010". Non 

i 2-mar-10 asse importa in quale data il formato viene visualizzato nel 
2| 10-feb-75 foglio di lavoro, deve solo essere una data valida per 
3| 16-set11 Excel corrispondente ad un numero di serie valido. Il 
asi 22-ago-10 codice seguente mostra come utilizzare il metodo Find 
5 4-apr-99 per cercare una data 

6| 2-feb-85 

7 


In questo esempio si inserisce la data da trovare nella cella D2 che viene rappresentata col valore di 
36254 in quanto la cella è formattata come "Generale". La ricerca avviene nella colonna A. 
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Sub cerca_data() 

Dim primo As Range, cerca1 As Range, ultimo As Range 

Dim strDate As String 

Set cerca1 = ActiveSheet.Range("A1:A20") ‘intervallo di ricerca 

Set ultimo = cerca1.Cells(cerca1.Cells.Count) 

strDate = Format(ActiveSheet.Range("D1"), "Short Date") 'si stabilisce che la data da cercare è in D2 
'Format ("4/4/99", "Short Date") restituisce "04/04/1999" 

'Format ("4/4/99", "Long Date") restituisce "Domenica 4 Aprile 1999". 

If IsDate(strDate) = False Then 'IsDate = True se è una data valida, altrimenti = False. 

MsgBox "Formato Data Incorretto" 

Exit Sub 

End If 

'CDate converte un numero o una stringa in dati Date. CDate (36240) restituisce "04/04/1999" 

Set primo = cerca1.Find(What:=CDate(strDate), After:=ultimo, LookIn:=xlFormulas, LookAt:=xlWhole, 
SearchOrder:=xlByRows, SearchDirection:=xINext, MatchCase:=False, SearchFormat:=False) 

If Not primo Is Nothing Then 

MsgBox primo.Address 'Se la data viene trovata si stampa l'indirizzo della cella (A5) 


Else 

MsgBox "Data non trovata" 
End If 

End Sub 


65. Il Metodo OnTime ed esempi sui colori 


Esempi di codice per modificare il colore del carattere in celle aventi "formule", "formule e numeri" e 
"costanti" 


Sub colore_formule() 

Dim coloreF, coloreN, coloreC As Long 

Dim cell As Range 

coloreF = RGB(Red:=0, Green:=255, Blue:=0) 

coloreN = RGB(Red:=0, Green:=0, Blue:=0) 

coloreC = RGB(Red:=0, Green:=0, Blue:=255) 

For Each cell In ActiveSheet.UsedRange.SpecialCells(xICellTypeFormulas) 
'celle con formule 

cell.Font.Color = coloreF 

Next cell 

For Each cell In ActiveSheet.UsedRange.SpecialCells(xICellTypeFormulas, xINumbers) 
'celle con numeri 

cell.Font.Color = coloreN 

Next cell 

For Each cell In ActiveSheet.UsedRange.SpecialCells(xICellTypeConstants) 
'celle con costanti (non formule) 

cell.Font.Color = coloreC 

Next cell 

End Sub 


400 


Microsoft® 


for Applications 


Sub colore_formule2() 

Dim coloreF, coloreN, coloreC As Long 

Dim cell As Range 

coloreF = RGB(Red:=0, Green:=255, Blue:=0) 
coloreN = RGB(Red:=0, Green:=0, Blue:=0) 
coloreC = RGB(Red:=0, Green:=0, Blue:=255) 
For Each cell In ActiveSheet.UsedRange 

If cell. HasFormula = True Then 

'celle con formule 

cell.Font.Color = coloreF 

If IsNumeric(cell) = True Then 

'celle con numeri 

cell.Font.Color = coloreN 

End If 

Else 

cell.Font.Color = coloreC 

'cellule con costanti 

End If 

Next cell 

End Sub 


Esempio: Il codice sotto riportato cambia il colore di una cella quando vengono immessi i valori delle 
celle sfruttando l'evento Change del foglio di lavoro 


Private Sub Worksheet_Change(ByVal Target As Range) 
Dim coloreF, coloreN, coloreC As Long 
coloreF = RGB(Red:=0, Green:=255, Blue:=0) 
coloreN = RGB(Red:=0, Green:=0, Blue:=0) 
coloreC = RGB(Red:=0, Green:=0, Blue:=255) 
With Target 

If .HasFormula Then 

'celle con formule 

.Font.Color = coloreF 

If IsNumeric(Target) Then 

'celle con numeri 

.Font.Color = coloreN 

End If 

Else 

.Font.Color = coloreC 

'celle con costanti (non formule) 

End If 

End With 

End Sub 


65.1 Il Metodo Application.OnTime 


Si può utilizzare il metodo Application.OnTime per eseguire una procedura a intervalli specifici o in un 
momento specifico della giornata. Sintassi 
ApplicationObject OnTime (earliestTime, ProcedureName, LatestTime, Schedule). 


Usando questo metodo è possibile pianificare l'esecuzione di una procedura in futuro in specifici 


intervalli di tempo, a partire da oggi, oppure è possibile fissare un momento specifico della giornata. L' 
oggetto Application rappresenta l'intera applicazione Excel, ed è l'oggetto più in alto nella gerarchia 
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degli oggetti di Excel. Gli argomenti earliestTime e ProcedureName devono essere specificati, mentre 
gli altri argomenti sono facoltativi. 


earliestTime: Questo argomento specifica il momento in cui la procedura viene eseguita 
ProcedureName: Questo argomento specifica il nome della procedura che si desidera eseguire. 
LatestTime: Con questo argomento è possibile impostare il limite di tempo per l'esecuzione della 
procedura vale a dire che se si imposta LatestTime a earliestTime + 20 e se nel frattempo un'altra 
procedura viene eseguita ed Excel non è “pronto” entro 20 secondi, questa procedura non verrà 
eseguita, tralasciando l'argomento LatestTime Excel eseguirà la procedura. Tralasciando 

l'argomento Schedule sarà impostato di default su True, che stabilisce una nuova procedura Ontime. 
Per annullare una procedura OnTime esistente impostata in precedenza, si deve specificare OnTime su 
False. 


Per eseguire una procedura in specifici intervalli a partire da oggi, si deve utilizzare "Now + TimeValue 
(ora)", se per esempio si esprime il metodo con una espressione come: TimeValue ("20:30:00"), verrà 
eseguita una procedura alle 20:30, mentre invece per eseguire una procedura a intervalli specifici di 
tempo (ad esempio, da oggi), si deve utilizzare Now + TimeValue (ora) vale a dire, Ora + TimeValue 
("00:00:05") imposta l'intervallo di tempo a 5 secondi, al quale intervallo la procedura verrà eseguita. 


65.2 Arrestare o annullare una procedura utilizzando il metodo OnTime 


Se si tenta di chiudere la cartella di lavoro, mentre una procedura è in esecuzione utilizzando 
Application.OnTime, Excel riaprirà la cartella di lavoro per completare la procedura, quindi, sarà 
necessario annullare la procedura. Per annullare una procedura in esecuzione utilizzando il metodo 
OnTime, è richiesto il tempo preciso della sua esecuzione pianificata. Si noti che se non si passa il 
tempo a una variabile, Excel non sa quale metodo OnTime deve utilizzare per annullare l'operazione. 
Per esempio se viene usata la sintassi Now + TimeValue ("00:00:03"), non è un valore statico, ma lo 
può diventare quando viene passato a una variabile. 

Ciò significa che il momento in cui la procedura è da eseguire (argomento earliestTime) deve essere 
assegnato a una variabile, utilizzando una variabile pubblica per rendere la variabile a disposizione di 
tutte le procedure in tutti i moduli e poi utilizzarlo per annullare il metodo OnTime. 


Esempio: Questa procedura utilizza il metodo OnTime il cui valore di incremento automatico viene 
reperito in una cella e viene eseguita a intervalli di tempo specifici. Il procedimento si Arresta al 
superamento di un valore in una cella specifica. La procedura deve essere inserita in un modulo 
standard 


Public tempoR As Date 

Sub incremento1() 

tempoR = Now + TimeValue("00:00:03") ‘imposta l'intervallo di tempo a 3 secondi 

'la procedura verrà eseguita in automatico nell'intervallo di tempo fissato 
Application.OnTime EarliestTime:=tempoR, Procedure:="incremento1", schedule:=True 
Cells(1, 1).Value = Cells(1, 1).Value + 5 ‘incrementare il valore di A1 di 5 ogni esecuzione 

If Cells(1, 1).Value > 25 Then 'la procedura si ferma quando trova il valore 25 nella cella A1 
Application.OnTime tempoR, "incremento1", , False ‘annullare impostando schedule a False 
End If 

End Sub 


Esempio: Questa procedura utilizza il metodo OnTime il cui valore di incremento automatico viene 
reperito in una cella e viene eseguita a intervalli di tempo specifici. Il procedimento si Arresta dopo 
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essere stata eseguita un determinato numero di volte. La procedura deve essere inserita in un modulo 
standard 


Public tempol As Date 

Dim conta As Integer 

Sub incremento2() 

tempol = Now + TimeValue("00:00:03") 
Application.OnTime tempol, "incremento2", , True 
Cells(1, 1).Value = Cells(1, 1).Value + 5 

conta = conta + 1 

If conta = 5 Then 'Interrompere la procedura dopo averla eseguita per 5 volte 
Application.OnTime tempol, "incremento2", , False 
conta =0 

End If 

End Sub 


Esempio: Avviare la procedura OnTime automaticamente quando la cartella di lavoro viene aperta e 
interromperla automaticamente alla chiusura della cartella di lavoro. Questa procedura imposta i 
promemoria in orari specifici e chiude automaticamente la cartella di lavoro in un momento specifico. 
Aggiungere il codice sotto riportato al modulo ThisWorkbook 


Private Sub Workbook_Open() 

ricordami 

End Sub 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 

On Error Resume Next 

ricordamiST ‘fermo il promemoria 

ThisWorkbook.Save 'salva cartella di lavoro prima della chiusura 

End Sub 

‘Le procedure sotto riportate devono essere inserite in un modulo standard: 
Public dTime As Date 

Sub ricordami() 

On Error Resume Next 

dTime = Now + TimeValue("00:00:01") 

Application.OnTime dTime, "ricordami" 

If Time = TimeSerial(18, 30, 0) Then 'Chiudere la cartella di lavoro nel momento specificato 
chiudiCAR 

End If 

If Time = TimeSerial(17, 30, 0) Then ‘Impostare promemoria di chiusura ufficio 
Application.OnTime dTime, "chiudiOF" 

End If 

If Time = TimeSerial(13, 0, 0) Then ‘impostare promemoria pausa pranzo 
Application.OnTime dTime, "pranzo" 

End If 

If Time = TimeSerial(11, 15, 0) Then ‘impostare il promemoria per la pausa caffè 
Application.OnTime dTime, "Pcaffe" 

End If 

End Sub 


Sub ricordamiST() 


Application.OnTime dTime, "ricordami", , False ‘fermare la procedura ricordami 
End Sub 
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Sub chiudiCAR() 

On Error Resume Next 

ricordamiST 

ThisWorkbook.Save 'salva cartella di lavoro prima della chiusura 
ThisWorkbook.Close 'chiude la cartella di lavoro 

End Sub 


Sub Pcaffe() 

Dim obj As Object 

Dim strMsg As String 

Set obj = CreateObject("WScript.Shell") 

Beep 'riproduco un segnale acustico di avviso 
strMsg = obj.Popup("Pausa Caffè!", vbOKCancel) 'Popup Message Box si chiuderà da solo 
End Sub 

Sub pranzo() 

Dim obj As Object 

Dim strMsg As String 

Set obj = CreateObject("WScript.Shell") 

Beep 

strMsg = obj.Popup("Pausa Pranzo!", vbOKCancel) 
End Sub 


Sub chiudiOF() 

Dim obj As Object 

Dim strMsg As String 

Set obj = CreateObject("WScript.Shell") 

Beep 

strMsg = obj.Popup("Chiudi Ufficio!", vbOKCancel) 
End Sub 
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66. Invio di una e-mail utilizzando un server remoto con CDO 


Il funzionamento di un servizio di posta elettronica è garantito dalla collaborazione di tre distinti 
software: un server che si occupa della consegna dei messaggi (protocollo SMTP), un server che riceve i 
messaggi, li archivia e li trasmette, su richiesta, al titolare della casella (protocollo POP3 o IMAP) e un 
client che, dal PC dell'utente, è in grado di inviare e ricevere e-mail collegandosi e dialogando con le 
due parti server del servizio. | Web server non offrono funzionalità di posta elettronica, tuttavia le 
macchine che ospitano servizi Web, spesso e volentieri, permettono anche l'invio delle e-mail, tramite 
un apposito server SMTP. 


A partire dalla versione Windows NT/2000, è stata integrata una libreria COM, chiamata CDO, che è 
l'acronimo di Collaboration Data Object, contenuta nel file Cdosys.dll, e permette di spedire e-mail 
attraverso il protocollo SMTP del Sistema Operativo, senza alcun bisogno di utilizzare un client. 
Vedremo come è possibile sfruttare il server SMPT presente nel con qualche esempio. 


Esempio 1: Inviare una e-mail utilizzando Gmail. 

Per poter utilizzare gli oggetti della libreria CDO è innanzitutto indispensabile istanziare tali oggetti. In 
questo esempio useremo solo l'oggetto CDO. Message in cui verrà definito il messaggio stesso e per 
istanziare l'oggetto useremo il comando: Set cdoMess = CreateObject("CDO.message"). La routine 
completa è la seguente 


Sub inviaE() 
Set cdoMess = CreateObject("CDO.message") ‘istanza dell'oggetto CDO 
With cdoMess.Configuration.Fields 'Impostare i parametri di configurazione del server remoto 
‘Indicare come il messaggio deve essere inviato. | valori sono: 
‘1- se il servizio SMTP è installato nel computer in cui lo script è in esecuzione. 
‘2 — se il servizio SMTP non è installato nel computer in cui lo script è in esecuzione. 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
‘Impostare il server SMTP che si utilizza 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 
'Impostare la porta di comunicazione del server SMTP 
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587 
'Abilitare autenticazione SMTP, il valore 1 indica True 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True ‘Abilita autenticazione SSL 
‘Timeout di connessione in secondi (tempo massimo in cui CDO tenterà una connessione al server SMTP 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
'Impostare le credenziali del vostro account Gmail 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "prova@gmail.com" 
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass1234" 
.Update ‘Aggiorna i campi di configurazione 
End With 
With cdoMess ‘Proprietà del messaggio 
.To = info.prova@gmail.com ‘indirizzo destinatario, inserire più indirizzi separandoli con una virgola 
.From = prova@gmail.com ‘Inserire il nominativo del mittente della e-mail 
.Subject = "Invio email con CDO" ‘Inserire l'oggetto della e-mail 
‘Inserire il corpo della email in testo semplice 
.TextBody = "Inserire il corpo del messaggio." & vbCRLF & "Si consiglia di creare una variabile per 
contenere tutto il testo" 
.Send ‘Spedizione della mail 
End With 
Set cdoMess = Nothing 
End Sub 
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Il codice sopra riportato è ampiamente commentato e non serve aggiungere ulteriori spiegazioni, 
possiamo però perfezionare il codice aggiungendo altri parametri. Per esempio, supponiamo di avere i 
dati di spedizione della mail in un foglio di lavoro denominato “Setup” e di doverli recuperare in 


automatico. 


DN |a Win 


z A a i i i In questi casi sarebbe opportuno 

Mittente Email iprova@gmail.com dc i Ei 

i dividere la procedura in 2 routine, in 
i cui unasi occupa di recuperare i dati 
presenti nel foglio di lavoro e passarli 
alla seconda che li processerà e 
invierà l'email. Per recuperare i dati 
i i dal foglio “Setup” possiamo usare un 
PICO IAA AAA AAA | codice come il seguente: 


LessssssassassesessaeseeziosiaszasasInase nananana siazia na Rene snesa nen ezi asia sia sianInnanesa estesi esi asi asa nennesa san ene senese anianinsenesn estoni aniasi nz nesassn nen esa esiesieni asian 


Sub Prova() 

Dim Eto As String, Efrom As String, Eogg As String, Emess As String, Esmtp As String, Epass As String 
Eto = Sheets("setup").Range("B2") 
Efrom = Sheets("setup").Range("B1") 
Fogg = Sheets("setup").Range("B3") 
Emess = Sheets("setup").Range("B4") 
Esmtp = Sheets("setup").Range("B5") 
Epass = Sheets("setup").Range("B6") 

inviaE Eto, Efrom, Eogg, Emess, Esmtp, Epass 
End Sub 


Mentre la routine che invierà la mail presenterà questo codice 


Sub inviaE(Eto As String, Efrom As String, Eogg As String, Emess As String, Esmtp As String, Epass As String) 
Set cdoMess = CreateObject("CDO.message") ‘istanza dell'oggetto CDO 


With cdoMess.Configuration.Fields 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Esmtp 
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Efrom 
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Epass 
.Update 

End With 


With cdoMess 

.To = Eto 

.From = Efrom 

.Subject = Eogg 
.TextBody = Emess 
.Send 

End With 

Set cdoMess = Nothing 
End Sub 


Possiamo anche allegare uno o più file al messaggio modificando il ciclo With in questo modo: 
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With cdoMess 

.To = Eto 

.From = Efrom 

.Subject = Eogg 

.TextBody = Emess 
.AddAttachment "C:\Test\info.txt" 
.Send 

End With 


Oppure inserire il percorso nel foglio “Setup” e allegarlo sotto forma di variabile come visto in 
precedenza. 

A volte può presentarsi la necessità di dover spedire delle email con un testo standard, può essere una 
promozione di certi prodotti, oppure un avviso qualsiasi, in questi casi è possibile inserire il testo 
presente in un file nel corpo della mail in questo modo: 


'Queste costanti sono definite per rendere il codice più leggibile 
Const ForReading = 1, ForWriting = 2, ForAppending = 8 
Dim fso, f 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.OpenTextFile("C:\Test\annuncio.txt", ForReading) 'Aprire il file in lettura 


BodyText = f.ReadAll "Il metodo ReadAll legge l'intero file nella variabile 
BodyText 
f.Close ‘Chiudi il file 


Set f = Nothing 
Set fso = Nothing 


With cdoMess 

.To = Eto 

.From = Efrom 

.Subject = Eogg 
.TextBody = BodyText 
.Send 

End With 

Set cdoMess = Nothing 
End Sub 


Il codice sopra riportato mostra come leggere il contenuto di un file (annuncio.txt) e inserirlo in una 
variabile (BodyText) che costituirà il corpo del messaggio. La routine completa in questo caso diventa: 
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Sub inviaE(Eto As String, Efrom As String, Eogg As String, Emess As String, Esmtp As String, Epass As String) 
Set cdoMess = CreateObject("CDO.message") ‘istanza dell'oggetto CDO 


With cdoMess.Configuration.Fields 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Esmtp 
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Efrom 
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Epass 
.Update 

End With 

'Queste costanti sono definite per rendere il codice più leggibile 

Const ForReading = 1, ForWriting = 2, ForAppending = 8 

Dim fso, f 

Set fso = CreateObject("Scripting.FileSystemObject") 

Set f = fso.OpenTextFile("C:\Test\annuncio.txt", ForReading) 'Aprire il file in lettura 


BodyText = f.ReadAll 'Il metodo ReadaAll legge l'intero file nella variabile 
BodyText 
f.Close ‘Chiudi il file 


Set f = Nothing 
Set fso = Nothing 


With cdoMess 

.To = Eto 

.From = Efrom 
.Subject = Eogg 
.TextBody = BodyText 
.Send 

End With 


Set cdoMess = Nothing 
End Sub 


Sub Prova() 
Dim Eto As String, Efrom As String, Eogg As String, Emess As String, Esmtp As String, Epass As String 
Eto = Sheets("setup").Range("B2") 
Efrom = Sheets("setup").Range("B1") 
Eogg = Sheets("setup").Range("B3") 
Emess = Sheets("setup").Range("B4") 
Esmtp = Sheets("setup").Range("B5") 
Epass = Sheets("setup").Range("B6") 
inviaE Eto, Efrom, Eogg, Emess, Esmtp, Epass 
End Sub 


A questo punto si dovrebbe aggiungere al codice una corretta gestione degli errori per evitare e 
prevenire errori quando la routine è in esecuzione. Possiamo modificare il listato come di seguito 


riportato 
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Sub inviaE(Eto As String, Efrom As String, Eogg As String, Emess As String, Esmtp As String, Epass As String) 
Set cdoMess = CreateObject("CDO.message") ‘istanza dell'oggetto CDO 
On Error GoTo err 'Gestione errori 


With cdoMess.Configuration.Fields 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Esmtp 
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Efrom 
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Epass 
.Update 

End With 

'Queste costanti sono definite per rendere il codice più leggibile 

Const ForReading = 1, ForWriting = 2, ForAppending = 8 

Dim fso, f 

Set fso = CreateObject("Scripting.FileSystemObject") 

Set f = fso.OpenTextFile("C:\Test\annuncio.txt", ForReading) 'Aprire il file in lettura 
BodyText = f.ReadAll "Il metodo ReadAll legge l'intero file nella variabile BodyText 
f.Close 'Chiudi il file 

Set f = Nothing 

Set fso = Nothing 

With cdoMess 

.To = Eto 

.From = Efrom 

.Subject = Eogg 

.TextBody = BodyText 

.Send 

End With 

Set cdoMess = Nothing 

err: 

If err.Number = 53 Then 

MsgBox "Manca il file da allegare. Procedura terminata" 
Exit Sub 
End If 
End Sub 
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Dim Eto As String, Efrom As String, Eogg As String, Emess As String, Esmtp As String, Epass As String 


If Trim(Sheets("setup").Range("B2")) = "" Then 
MsgBox "Manca Il Destinatario" 


Exit Sub 
Else 
Eto = Sheets("setup").Range("B2") 
End If 


If Trim(Sheets("setup").Range("B1")) = "" Then 
MsgBox "Manca Il Mittente" 
Exit Sub 
Else 
Efrom = Sheets("setup").Range("B1") 
End If 
If Trim(Sheets("setup").Range("B3")) = "" Then 
MsgBox "Manca L'Oggetto della Mail" 
Exit Sub 
Else 
Eogg = Sheets("setup").Range("B3") 
End If 
Emess = Sheets("setup").Range("B4") 
If Trim(Sheets("setup").Range("B5")) = "" Then 
MsgBox "Manca SMTP da usare" 
Exit Sub 
Else 
Esmtp = Sheets("setup").Range("B5") 
End If 
If Trim(Sheets("setup").Range("B6")) = "" Then 


'controllo se esiste il destinatario 


'controllo se esiste il mittente 


'controllo è stato inserito l'oggetto della mail 


'controllo se ci sono i dati dell'smtp 


‘controllo se c'è la password per l'smtp 


MsgBox "Manca la password dell'SMTP da usare" 


Exit Sub 
Else 
Epass = Sheets("setup").Range("B6") 
End If 
inviaE Eto, Efrom, Eogg, Emess, Esmtp, Epass 
End Sub 


410 


Microsoft" 


for Applications 


67. Efficienza e prestazioni in VBA 


Assieme ai prodotti Office di Microsoft viene distribuito un linguaggio di programmazione, denominato 
Visual Basic for Application (VBA) ed è utilizzato principalmente per automatizzare le attività, per 
risparmiare tempo e gestire i dati in modo più efficiente. Usare VBA può causare, a volte, dei 
rallentamenti all'applicazione principalmente imputabili allo stile di programmazione, infatti è facile 
cadere in cattive abitudini di programmazione quando si lavora in questo ambiente, sia che si 
elaborano piccole o ingenti quantità di dati, o che determinate macro vengano richiamate in maniera 
ricorrente, pertanto è molto importante scrivere un codice snello ed efficiente in modo da ottimizzare 
le attività riducendone i tempi di esecuzione e migliorando le prestazioni. 


Ci sono diversi modi per ottenere ottimi risultati con VBA, lo scopo di questo articolo è quello di 
illustrare delle semplici regole che indicheranno come migliorare l'efficienza delle cartelle di lavoro, in 
quanto possono avere un forte impatto sulle prestazioni delle macro. 


67.1 Disattivare il calcolo automatico del foglio di lavoro 


Questa regola è nota a molti ed è quella più importante. Quando un nuovo valore viene immesso in 
una cella del foglio di lavoro, Excel ricalcolerà tutte le celle che fanno riferimento al foglio e se la macro 
sta scrivendo dei valori nel foglio di lavoro, sarà necessario attendere che venga ricalcolata ogni voce 
prima di riprenderne il controllo. L'impatto di lasciare il calcolo automatico attivato nel programma può 
essere una scelta inopportuna e si consiglia vivamente di disattivarlo utilizzando il seguente comando 
all'inizio della macro. Application. Calculation = xICalculationManual 


Se è necessario ricalcolare i valori del foglio di calcolo, mentre la macro è in esecuzione è possibile 
utilizzare uno dei comandi di seguito descritti, dove il primo ricalcola solo un foglio specifico e il 


secondo ricalcola solo un intervallo specifico. 


Worksheets ("Foglio1").Calculate 
Range ("A1:A25").Calculate 


Quando la macro ha terminato la sua esecuzione, il calcolo automatico deve essere ripristinato 


utilizzando il seguente comando. Application. Calculation = xICalculationAutomatic. 


67.2 Disattivare gli aggiornamenti dello schermo 


Ogni volta che VBA scrive i dati nel foglio viene aggiornata l'immagine sullo schermo, e questo 
costituisce un notevole freno alle performance dell’applicazione, per cui è opportuno disattivare 
questa operazione utilizzando il seguente comando. Application.ScreenUpdating = FALSE 


Al termine dell'utilizzo della macro è possibile attivare gli aggiornamenti dello schermo con il seguente 
comando Application.ScreenUpdating = TRUE 
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67.3 Lettura e scrittura di dati in una singola operazione 


E’ fondamentale ridurre al minimo il traffico tra VBA e Excel, specialmente quando è possibile leggere e 
scrivere dati in blocchi. Ci sono diversi metodi per ottenere questo risultato, un esempio di lettura in un 
blocco di dati può essere quello di lettura in una matrice. Questo esempio è circa 50 volte più veloce in 
lettura in ciascuna cella rispetto ad usare un ciclo. 


Dim myArray() As Variant 
myArray= Worksheets("Foglio1").Range("A1:S500").value 


Allo stesso modo, si possono usare altri metodi, anche se meno efficaci di quello appena proposto 
come i seguenti: Worksheets("Foglio1").Range("A1:S500").value = myArray 


With Worksheets("Foglio1") 
.Range("A1:S500").Value = myArray 
End With 


Dim intervallo As Range 
Set intervallo = Range("A1:S500") 
intervallo.value = myArray 


67.4 Dichiarare le variabili 


E’ meglio evitare di dichiarare una variabile numerica come Variant se non strettamente necessario. Si 
noti che se si sceglie di utilizzare "Option Explicit" all'inizio della macro qualsiasi variabile indefinita sarà 
di tipo Variant. Le Variant sono molto flessibili perché possono essere numerico o testo, ma sono lente 
per l'elaborazione in una formula. Idealmente, è meglio utilizzare variabili Integer o Boolean ove 
possibile 


67.5 Evitare l'uso eccessivo di funzioni di Excel nel codice 


A volte si dà per scontato che funzioni native di Excel sarebbero state efficacemente trattate anche da 
VBA, ma non è sempre così. Ad esempio, sappiamo che VBA non ha una funzione Max () o Min () e 
molti utenti utilizzano la funzione tramite il codice: variabile = Application.Max(Value1, Value2) 


Recentemente ho trovato su internet una versione di una funzione VBA Max () che è 10 volte più 
veloce rispetto alla funzione di Excel, tuttavia, il codice qui sotto riportato è oltre 80 volte più veloce, 
pur con la limitazione di avere solo due argomenti e non supporta le matrici, ma il miglioramento in 
termini di velocità è notevole. 


Function Max2 (Value1, Value2) 
If Value1 > Value2 Then 

Max2 = Value1l 

Else 

Max2 = Value2 

End If 

End Function 
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Suggerisco cautela quando si usano le funzioni di Excel e si dovrebbe sempre valutare l'impatto della 
riscrittura della funzione. Si noti che qualsiasi comando che inizia con "Application" o 
"WorksheetFunction" si riferisce a una funzione di Excel 


67.6 Evitare la valutazione Strings 


Le variabili Strings (testo) sono lenti da valutare, si consiglia di evitare di valutare stringhe in codice 
come questo: 


Select Case Sesso 
Case "Maschio" 
sila codice 

Caso "Femmina" 
SREE codice 

End Select 


E' bene ricordare che la numerazione assegna un valore numerico costante ad una variabile e VBA è in 
grado di elaborare i valori enumerati velocemente mantenendo il codice leggibile, inoltre si possono 


assegnare valori numerici predefiniti o valori specifici per poi essere assegnati in questo modo 


Public num numSesso 


maschio = 0 
Femmina = 1 
End num 


Dim Sesso As numSesso 
Select Case Sesso 

Case Maschio 

... Codice 

Case Femmina 

... Codice 

End Select 


Gli operatori booleani sono semplicemente degli switch (interrutori) e possono essere true o false che 
elaborano molto velocemente. Nell'esempio che segue bMale, bFemale sono variabili booleane. Il 
codice booleano è di circa 10 volte più veloce rispetto all'utilizzo di stringhe. 


If bMaschio Then 
. codice 

Elself bFemmina Then 
. codice 

End If 


67.7 Non selezionare i fogli di lavoro specifici se non necessario 


In genere non è necessario utilizzare il comando Select per leggere o scrivere su un foglio di lavoro, non 
selezionando il foglio si velocizza la procedure di circa 30 volte, evitare questo: 
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Worksheets ("Foglio1"). Select 
variabile = Cells (1, 1) 


Fate questo invece: variabile = Worksheets ("Foglio1"). Cells (1,1) 


67.8 Evitare il copia e incolla 


Le funzioni di Copia e Incolla (o PasteSpecial) sono lente, si velocizza di circa 25 volte il processo 
utilizzare il seguente metodo per copiare e incollare valori. 


Range("A1:K100").value = Range("A101:K200").value. 


67.9 Considerazioni finali 


Ho trovato utile scrivere una piccola macro per valutare il risparmio di tempo con i vari metodi. La 
macro esegue semplicemente una funzione un milione di volte e registra il tempo trascorso eseguendo 
tale metodo. La macro semplice sotto confronta la funzione di Excel Max () per la funzione Max2 
indicato nella Regola # 5. 


'*#*Valutazione prima funzione 

Start_time = Now 

For i= 1 To 1000000 

value1 = Application. Max(amt1, amt2) 

Next i 

End_time = Now 

Worksheets("sheet1").Cells(1, 2) = End_Time — Start_Time 
'*#*Valutazione seconda funzione 

Start_time = Now 

For i= 1 To 1000000 

value1 = Max2(amt1, amt2) 

Next i 

End_time = Now 

Worksheets("sheet1").Cells(2, 2) = End_Time — Start_Time 
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68. Crea e invia file PDF da Excel con VBA 


Si legge frequentemente in rete come Excel sia sempre più utilizzato per creare e gestire nuove 
funzionalità sia in ambito aziendale che personale utilizzando applicazioni create con il VBA. Una 
naturale evoluzione nell’uso di verticalizzazioni sviluppate in VBA è la conversione in PDF 
dell’elaborazione fatta dall’applicazione e inviarla via e-mail al destinatario, indipendentemente dai 
programmi di conversione installati nel sistema o dal client di posta elettronica che usiamo. 


Il nostro obiettivo è di automatizzare la procedura direttamente dal nostro applicativo Excel 
interfacciandolo con opportuni programmi che accettano la programmazione VBA, permettendoci così 
di bypassare finestre di conferma o altre richieste permettendo un’esportazione in “silent” cioè senza 
chiederci niente. In pratica sto proponendo una soluzione che consiste in un pulsante presente nel 
foglio attivo di Excel che esegue la conversione in PDF e lo salva in una cartella e in un altro pulsante 
che invia il file PDF creato al destinatario. Per svolgere queste operazioni è necessaria la presenza nel 
sistema di una stampante virtuale, noi utilizzeremo Bullzip PDF Printer mentre per l’invio del file 
usiamo Blat, entrambe sono due utility Free che funzionano da riga di comando che possiamo 
personalizzare tramite codice VBA. Vediamo ora nel dettaglio come operare 


68.1 Creare file Pdf 


Durante l'installazione, che è molto semplice e intuitiva, il setup provvederà a dotarvi anche delle 
librerie Ghostscript, necessario per il corretto funzionamento di BullZip. Una volta completata 
l'installazione dovete aggiungere come componente aggiuntivo al vostro file Excel la libreria di Bullzip 
operando direttamente da VBA nel seguente modo: 

Entrare nell'editor VBA (ALT+F11) e dal menu Strumenti — Riferimenti mettete la spunta su Bullzip 
nell'elenco a discesa che compare come da figura 


[V] Microsoft Excel 15.0 Object Library 
| OLE Automation 


MI Microsoft Office 15.0 “i “a 
M] Microsoft Forms 2.0 Object Library 
CL] AccessibilityCplAdmin 1.0 Type Library 
I] Active DS Type Library 

[_] ActiveMovie control type library 

[] AdHocReportingExcelClientLib 

[_] AEAudioAPODIlib 

[_] AEAudioAPODIlIib 

[]AgControl 5.1 Type Library 

TM] si imdDownlnad Protocol Handlers 
‘ HI 


Percorso:  C:\WINDOWS\system32\bzpdfc.dil 


-MANCA: Bullzip 
Lingua: Standard 


(i) Se per vari motivi installate più volte Bullzip, rimuovete sempre le installazioni precedenti 
dal pannello di controllo “Installazione Applicazioni”. 
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Eseguita questa operazione copiate il seguente codice e inseritelo in un nuovo modulo nel vostro 
progetto VBA 


Sub creaPdf() 
Dim myobject As New Bullzip.PDFPrinterSettings 
Dim SavePath As String, FileName As String, SheetName As String, ThisSheet As String 
Dim Unit, DirProg, DirPdf, MiaDir As String 'Path dove salvare il pdf 
Unit = Sheets("Info").[B1] 
DirProg = Sheets("Info").[B2] 
DirPdf = Sheets("Info").[B3] 
MiaDir = DirProg & DirPdf 
Dim dir1 As String ' se non ci sono le cartelle le creo 
dir1 = Dir(Unit & DirProg, 16) 
If Len(dir1) = 0 Then 
ChDir Unit 
MkDir Unit & DirProg 
End If 
Dim dir2 As String 
dir2 = Dir(Unit & DirProg & DirPdf, 16) 
If Len(dir2) = 0 Then 
ChDir Unit 
MKkDir Unit & DirProg & DirPdf 
End If 


MioDoc = ActiveSheet.Name ‘assegno un nome al file pdf 
Set Nrdoc = Range("13") 

Set myDatadoc = Range("15") 

rifDoc = Nrdoc 

Datadoc = myDatadoc 


Dim gg, mm, aa As String 
gg = Day(myDatadoc) 
mm = Month(myDatadoc) 
aa = Year(myDatadoc) 
Nomefile = MioDoc & "_" & rifboc &"_" &gg&" "&mm&"_"&aa 
If LCase(Right(Nomerile, 4)) <> ".pdf" Then NomerFile = Nomerile & ".pdf" 


myobject.SetValue "output", Unit & MiaDir & Nomerile ' setup parametri pdf 
myobject.SetValue "showsettings", "never" 
myobject.SetValue "showPDF", "no" 'remmare se vuoi visualizzare il PDF 


myobject.WriteSettings (True) 


If InStr(ActivePrinter, "BullZip") = 0 Then 'setto la stampante virtuale come predefinita 
Dim storeprinterS, PrinterChanged As Boolean 
PrinterChanged = True 
storeprinter = ActivePrinter 
ActivePrinter = GetFullNetworkPrinterName("Bullzip PDF Printer") 
End If 


ActiveSheet.PrintOut 'creo il file pdf 


If PrinterChanged Then ActivePrinter = storeprinter ' ripristino la stampante predefinita di sistema 
End Sub 
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Function GetFullNetworkPrinterName(strNetworkPrinterName As String) As String 
Dim strCurrentPrinterName As String, strTempPrinterName As String, i As Long 
strCurrentPrinterName = Application.ActivePrinter 

i=0 

Do While i< 100 

strTempPrinterName = strNetworkPrinterName & " su Ne" & Format(i, "00") & ":" ' per win in Ita 
On Error Resume Next 

Application.ActivePrinter = strTempPrinterName 

On Error GoTo 0 

If Application.ActivePrinter = strTempPrinterName Then 
GetFullNetworkPrinterName = strTempPrinterName 

i= 100 

End If 

i=iji+1 

Loop 

Application.ActivePrinter = strCurrentPrinterName 

End Function 


68.2 Informazioni Aggiuntive 


Nel codice sopra riportato ci sono dei riferimenti al foglio “Info”, che è stato usato come foglio di 
appoggio per memorizzare i dati per identificare il percorso dove salvare il file PDF e dove viene 
collocato il file Excel. Le celle del foglio info interessate sono: 


B1 = Inserite l’unità in cui collocate il file Excel 

B2 = Inserite il nome della cartella in cui inserite il file Excel 
B3 = Inserite la sottocartella in cui vengono salvati i file PDF 
B4 = Inserite L'SMTP del vostro client di posta predefinito 


B | 


C:\ 

Preventivi\ 

Pdf\ 

smtp.fastwebnet.it 

mittente _email@libero.it 
"Comunicazione" 
C:\Preventivi\testo.txt 
C:\Preventivi\Pdf\DDT_3_8 12 2009.pdf 
C:\Preventivi\ 


BWIN 


wo 0 4 


11 |Unità e Persorso preferiti per il salvataggio dei file .Pdf 
12 la cartella e la sottocartella devo avere come ultimo carattere " \" 
13 


Pertanto per un corretto funzionamento dovete inserire nelle celle sopra elencate i percorsi del vostro 
pc. Inoltre alcuni parametri per la creazione del file PDF vengono prelevati dal foglio DDT, dove viene 
compilato il documento di trasporto. Potete modificare il foglio come volete, farlo diventare una 
fattura o qualsiasi altro documento, a patto che le celle: 
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L3 = deve contenere il N° di documento 
L5 = deve contenere la data del documento 


Se per qualsiasi motivo nel vostro documento il Numero e la data del documento non si trovano nelle 
celle L3 e LS dovete cambiare il codice segnato in rosso inserendo i vostri riferimenti di cella. 


Scorrendo il codice proposto poco sopra si può notare che nella fase di conversione in PDF viene 
eseguito un controllo se le cartelle che abbiamo specificato nelle celle B1-B2-B3 del foglio Info sono 
presenti nel sistema, in caso contrario per evitare errori vengono create e successivamente viene 
assegnato il nome del file PDF composto dai valori presenti nelle celle L3 (N° del DDT) e L5 (data DDT). 
Per velocizzare il reperimento delle informazioni in fase di creazione del file PDF i valori ottenuti dal 
codice per costruire il nome del file completo di percorso verranno memorizzati sempre nel foglio Info 
più precisamente: 


B8 = Percorso completo di nome del file PDF 
B9 = Percorso dove risiede il programma (File Excel) 


Questi ultimi dati saranno utili in seguito per inviare il file. A questo punto non ci resta che disegnare un 
pulsante e inserire come testo “Crea PDF” e associarlo alla macro creaPdf, il cui codice abbiamo visto 
poco sopra. Ora, cliccando sul pulsante Crea Pdf il foglio attivo viene convertito in PDF e salvato nel 
percorso specificato nelle celle B1-B2-B3 del foglio “Info” oltre al percorso completo di nome ed 
estensione del file creato, che è stato inserito nella cella B9 


68.3 Invio del file via e-mail 


Come abbiamo detto in premessa per inviare il file PDF via e-mail useremo Blat, assicuratevi di 
decomprimere i file di Blat nella stessa cartella in cui mettete il file Excel. Per usare Blat andremo a 
creare un file .bat tramite VBA a cui passeremo i comandi necessari per il corretto funzionamento. Per 
inviare il file PDF abbiamo bisogno dell'indirizzo del destinatario ed è stato inserito nell’intestazione del 
documento e precisamente nella cella G12. Peri vostri documenti potete dotare l’anagrafica degli 
indirizzi email dei vari clienti ed estrapolare il dato direttamente dall’anagrafica, oppure quando viene 
inserito il nominativo del cliente, sia che avvenga in modo manuale, oppure tramite codice VBA, 
recuperando i dati da un’anagrafica presente nel programma e andando ad inserirlo nella cella G12 del 
foglio principale DDT. Se per qualsiasi motivo dovete cambiare il riferimento di cella nel vostro foglio di 
lavoro dovete modificare anche il riferimento nel codice della macro che verrà esposto di seguito. 


A questo punto disegniamo un pulsante sul foglio DDT nominandolo Spedisci Pdf e lo associamo alla 
seguente macro 


Sub invia() 


Form1.Show 
End Sub 


Form1 è una finestra di dialogo che verrà mostrata a video riassumendo i dati necessari per poter 
inviare la mail 
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Ind. email mittente 
| smtp.fastwebnet.it| | nome.cognome @libero.it 


Path file 


| C:\Preventivi\Pdf\DDT_3_8_12_2009.pdf 


Ind, email destinatario 


| destinatario_email@libero.it 
[sent | | | 


Al tasto "Annulla" di Form1 associate questo codice 


Private Sub CommandButton1_Click() 
Unload Me 
End Sub 


Mentre al tasto "Invia" della form associate questo codice 


Private Sub CommandButton2_Click() 

Sheets("email").Range("A1:A15").ClearContents 

Sheets("email").[A1] = "CLS" ‘pulisci lo schermo 
Sheets("email").[A2] = "set email=" & Sheets("info").[B5] 'set variabile mittente 
Sheets("email").[A3] = "set server=-server " & Sheets("info").[B4] 'set smtp 


Sheets("email").[A4] = "set dest=-to " & Sheets("DDT").[G12] 'set variabile destinatario 
Sheets("email").[A5] = "set subject=-s " & Sheets("info").[B6] 'oggetto messaggio 
Sheets("email").[A6] = "set attach=-attach " & Sheets("info").[B8] ‘allegato pdf 
Sheets("email").[A7] = "set path1=" & Sheets("info").[B9] 

' comandi per blat 

Sheets("email").[A8] = "@CD\" 

Sheets("email").[A9] = "@CD %path1%" 

Sheets("email").[A10] = "@blat -install %server% %email%" 

Sheets("email").[A11] = "@blat testo.txt %dest% %subject% %attach%" 


CreaBat 
End Sub 


Il foglio “email” è un foglio di appoggio usato per “comporre” i dati che servono per la creazione del file 
bat da passare all’utility Blat. Nell’evento Activate della Form inseriamo questo codice 


Private Sub UserForm_Activate() 

TextBox1 = Sheets("info").[B4] ' smtp 

TextBox2 = Sheets("info").[B5] ' mittente 

TextBox3 = Sheets("info").[B8] ' path file 

TextBox4 = Sheets("DDT").[G12] ' destinatario 
TextBox5 = Sheets("info").[B6] ' oggetto messaggio 
End Sub 
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Che usiamo per precompilare le varie caselle di testo all’interno della form. | dati che vedete nella Form 
sono quelli che abbiamo inserito nel foglio “Info”, prestate attenzione al 1° box, dove c’è il vostro SMTP 
e inserite nel foglio “Info” la dicitura esatta dello stesso in base al vostro client di posta preferito. Ora 
per creare il file bat usiamo questo codice 


Private Sub CreaBat() 

'creafile 

Application.ScreenUpdating = False 

Sheets("email").Activate 

namefile = ActiveSheet.Name 

numrig = ActiveSheet.Range("A" & Rows.Count).End(xIUp).Row 
mfilehandle = FreeFile 

Dim Unit, DirProg As String 

Unit = Sheets("Info").[B1] 

DirProg = Sheets("Info").[B2] 


pathbat = Unit & DirProg & namefile & ".bat" 
2-="" 

Open pathbat For Output As #mfilehandle 
For ct1= 1 To numrig 

dato1 = ActiveSheet.Cells(ct1, 1) 

Print #mfilehandle, dato1 

Next ct1 

Close #mfilehandle 
Sheets("DDT").Activate 

Shell ("C:\Preventivi\email.bat"), 1 
Form1.Hide 

End Sub 


A questo punto possiamo inviare il file ma mancherebbe una presentazione del messaggio. Per farla 
possiamo usare un file txt in cui inseriamo del testo generico per avvisare il destinatario del contenuto 
dell'allegato. Possiamo salvare in un file di testo il seguente testo: 


Invio Allegati: 
Con la presente trasmetto documentazione relativa ai prodotti richiesti 
Saluti Alex 

fas A | Bisogna prestare attenzione che il 
1 (CLS cha e file (.txt) sia presente nella cartella 
2 \set email=mittente_email@libero.it in cui collocate il programma. A 
3 |set server=-server smtp.fastwebnet.it__ questo punto abbiamo tutti i dati 
4 |set dest=-to destinatario_email@libero.it necessari per trasmettere il nostro 
S| set subject=-s COMunicazione file PDF, basta solo cliccare sul 
6 |set attach=-attach C:\Preventiv\Pdf\DDT_3_8_12_2009 pdf dulsante Invia” €Vansono rasoi 
7 \set path1=C-\Preventivi\ L ° | 
8 5 tutti i dati necessari in un foglio 
9 |@CD %path1% [“email”] che verrà convertito in 
10 |@blat -install %server% %email% bat e mandato LI esecuzione dal 
11 |@blat testo.tixt %dest% %subject% %attach% SOMMANGOSNGILEL Da. 
12 


Il processo è terminato e il file 
inviato all'indirizzo indicato nel foglio di lavoro. 
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